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FORWARD 

Thiis ciiraeiculum was designed implementing the 
IntegrJUia environment and module available from thfe 
AE^PECH Corporation, These products >?©re chosen from other 
i Ada . develoianeht';products-- because- of 

■;;y2:)-|;::i:-iie 

;v/0::Canputer.p^atfo ^ 

'■'^.)' : ^- • btiilt^- ■ in'' ■ pacicages^'. ^such .^.as- S.6o!?P> :v and' GRKBSii^S ''^ 
^^^^^^^^^^^^^^^r ; suit themselves nicely to the JUia classroom^ 

. ; .creating, an .eh joy£d?'le;,', learning, environment f Vc; -.-- 

il'4i}:r;v;::The^'-'i^ 

c:..- ;.;.egaipme^ :v.the- puirchase of math ' 

?! ) The ^ability to ^^seV^t Ada coinjpil^r^ CAI 

• ipro5fr£m other tools in common use 

5^|f|;|;f;:S:;:;:;Defe^ 

j:^:Sii^#iintigiii^ 

ii:a^;:f:-^i-u»tei^ 

; ^^^^ : t 

of Defense /lan^^^other \;gpvernment^^^ ) ■■. 

.■^b.::; , ■ V, S w i^Navy..:.; - A^Navat'^-Poistgraiiuat^'^^^^^ 
used to teach Ada and SoftvrareE^ 

c . U.S. Marine Corps -^ Quanticoy^^^vv^^ used in daily 
:■■ -software; development. 

d. U.S. Army - CECOM, Ft. Monmouth, NJ; used for the 
development of Command and Control Systems for the 

-Army. ■ :.;-v-:V:':;.v:> ■„■::■.:■.::■,■■■.■■■ 

'. -e .■ . and . miany others:'.;.''i^^'-'' ■ 

We wish to thank the AETECH Corporation for their stipporl: 

.■ in the ■■develojaaexit of this curriculum^' ^-^ 
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h SECONPARY/POST-SECONDARY CORRICimTlM FOR 
«THB ADA PROGRAMMING LftHGgAGB* 



IMTRODnCTION 



Perhaps no other computer language has created quite as 
much excitement as the Ada computer programming language. 
Developed under a contract for the Department of Defense, 
Ada has become the programming language of the future. 
Since its inception in the early 1980 's, Ada has grown from 
being only a language used and proliferated in the defense 
community, to a language which businesses and educational 
institutions have come to use. Because of its structure, 
Ada is an excellent language to use to write programs. 
However, due to the large amount of Ada code to be 
generated, we now face an extreme shortage of trained Ada 
programmers. With this lack of trained programmers in mind, 
this secondary/post secondary curriculum has been developed 
to teach Ada to students, in hopes of meeting the demand for 
a trained Ada community. 



CURRICDLPM DESIGM AMD STRATEGY 



The curriculum employs a strategy which includes, but is 
not limited to, the following components t lectures, 
audio/visual aids, computer aided instructional training and 
reference materials, laboratory experiences, and feedback 

-1- 
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devices. The entire curricultim is available in ha. dcopy 
form through the West Virginia Curriculum Repository located 
at Cedar Lakes, West Virginia. The address o£ the west 
Virginia Curricultuo Repository is: 



Curriculum Technology Resource Center 
Cedar Lakes Conference Center 
Ripley, West Virginia 25271 
(304) 372-7021 



A. Lectures - Lectures will be provided by the individual 
instructor, using the included informational lesson plans 
and curriculum as guides. The individual instructor 
should provide lecture notes as required. 



B. Audio/ Visual Aids - Audio/ visual aids should be 

utilized to supplement this curriculum. It is felt that 
each individual instructor wishing to utilize the 
curriculum will have access to an overhead projector and 
a VHS video playback machine. Many audio /visual aids, 
utilized for the construction of this curriculum, are 
available through the West Virginia Curriculum Repository 
at Cedar Lakes, West Virginia for dissemination to 
interested instructors . 



Compute r Aided Instructional and Training Reference 
Materials ~ This curricultiro was designed utilizing the "Ada 
Training Environment" and "IntegrAda" with optional ''On-Line 
Training and Reference Module*'. These are commercial 
Computer Aided Instruction (CAI) programs available from the 
AETECH Corporation for IBM PC compatible computers. Studies 
have shown that students will read and comprehend 
information at a faster rate if it is presented 
interactively on a computer terminal, rather than in a 
textbook. The software chosen for use with this project was 
developed over a five year period and field-tested by the 
AETECH Corporation. It is not meant as a replacement for 
individual instructor lectures or demonstrations; but it can 
considerably enhance the learning process when used with 
this curriculum. 

Laboratory Experiences - It is felt that in order for a 
student to gain proficiency with the Ada language, 
laboratory experiences should be provided to contribute to 
the student's overall learning. Many laboratory experiences 
are included in this curriculum, which will allow the 
student to demonstrate, through the use of computer 
programming exercises, their proficiency with the language. 
It is felt that a computer to student ratio is 1;1 is 
needed . 

The laboratory exercises in this curriculum were designed 
around a one hour format using IBM PC compatible computers 
and "IntegrAda", the validated Ada compiler for the IBM PC 



compatible produced by ABTECH, inc. Each laboratory 
exercise should be preceded by lecture, audio/ visual 
instruction, and CAI instruction where appropriate* 

Feedback Devices - Feedback devices are provided within 
Block I o£ this curriculum. It is felt that instructors 
generally prefer to develop their own quizzes and tests, and 
no feedback devices have been included in Blocks II and III. 
Pre-enrollment and post-enrollment attitude measurement 
devices should be administered by the Instructor, to be 
utilized as tools for measuring students' attitudes toward 
computers in general, and the Ada programming language in 
particular. 

METHOD OF TEa^Twqf . It is felt that, in order for the 
curriculum to be effective, the following teaching method 
should be incorporated as a strategic guide, to insure that 
the ciirriculum is effective: 

1* Teacher Lecture - The teacher will present the 

required lecture materials to the students, who will 
in turn take notes on the presented material. 
Lectures shall include audio/visual tools as recpxired. 

2. Student Participation - After each presented lesson by 
the teacher, all students should be given an 
opportunity to ask questions, express concerns, or 
make comments concerning the presented material. 

-4- 
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Computer Aided Instruction - It is recommended that a 
CAI package be incorporated as part of the total Ada 
curriculum. This CAI package should be made available 
for students to view after the presented lecture 
material, and prior to any laboratory experience. 

Iiaboratorv Experience - As much as possible, 
laboratory experiences should follow the presented 
lecture material and CAI training. Laboratory 
experiences should include actual programming tasks, 
and to simplify the learning process at the secondary 
level, it is highly recommended that Ada programming 
tools used in the laboratory include user- friendly 
"Turbo-like" Ada programming systems with simple, 
easy-to-use libraries for Screen, Mouse, Sound, and 
Pixels . 

Feedback Devices - Feedback devices should be utilized 
after each lecture or completed laboratory experience 
as recpiired. The individual teacher will have the 
better idea of when feedback from students is 
required. It is crucial that feedback devices for 
measuring students attitudes prior to beginning the 
curriculum, and feedback devices for measuring 
students' attitudes after the completion of the 
course, should be administered at the appropriate 
times. 
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lABOR&TORY EXPERIMENT 



LAB intro.l 



V. STDDENT OBJECTIVES; At the completion of this 
experiment, the student should be able tot 

1. Boot up the AETECH Ada Training Environment or the 
AETECH On-Line Training and Reference Module used 
for this curriculum. 

2. Choose from the displayed menus which lesson they 
would like to study. 

3. Return to the operatirg system from the CAI 
package . 

VI. REQUIRED MaiBRIALS; AETECH "Ada Training Environment" 
or AETECH "IntegrAda" with the "On-Line Training and 
Reference Module". 

VII. PROCEDURE 

1. Power on. 

2. Log on to the drive where the "Ada Training 
Environment " or "ZntegrAda " with the "On-Line 
Training and Reference Module" are installed. 

3. At the DOS prompt, change to the working directory 
where the CAI package has been installed. If the 
"Ada Training Environment" has been installed, then 
type CD\ATE\COURSE. If the On-Line Training and 
Reference Module has been installed, then type 
CD\IADA. 

^' ^5?^°°^ pron^Pt/ type the appropriate coxranand for 
the CAI package which has been installed. If the 
"Ada Training Environment" has been installed, then 
type ATE. If the On-Line Training and Reference 
Module has been installed, then type REFER. 
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5. In the lower right comer of the screen, a square 
labeled "Ada Training Environment" wiii appear. 
Bach tutorial block is listed. Select the proper 
block by using the up/down cursor key until the 
correct block is highlighted, then press Enter. 

6. Within each block, there is a series o£ lessons. 
Unless otherwise instructed, you will take the 
lessons in order. Select the proper lesson by 
using the up/down cursor key, then press Enter. 

7. Within each lesson, there is a list o£ topics. 
Host topics consist of one screen of information. 
Select each topic in order by using the up/down 
cursor keys, then pressing Enter. 

8. Read each screen of information, and take notes on 
the key points presented. 

9. Press Enter. This will take you back to the list 
of topics. 

10. When you have completed the assignment, select QUIT 
from the topic menu. This will return you to the 
DOS prompt. 

11. Practice returning to the operating system and 
booting up the CAI system several times so that you 
are extremely familiar with this procedure. 

12. Power down computer, and clean up area. 

13. Record any questions, comments, or concerns you may 
have with using the system for your Instructor. 
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LAB Intro. 1. 

TEACHER GUIDE 
LABORATORY EXPERIMENT 



I . BLOCKS I f Teacher Notes This l^boratozy is only 
applicable , to those instructors who are 
utilizing the AETBCS "Ada TraijUng 
Environment " or the AETECE "JntegrAda * with 
"OB'-'Litte Training and He ference Module*'), 

II. UNITS Introduction 

III. LAB NDMBERs 01 

IV. LAB TITLES "Introduction to Computer Assisted 

Instruction Software" 



V. STDDEMT OBJECTIVES s At the complfetion of this 
experiment, the student should be able to: 

1. Boot up the AETECH Ada Training Environnient or the 
AETECH On>Line Training and Reference Hodule used 
for this curriculum. 

2. Choose from the displayed menus which lesson they 
would like to study. 

J. Return to the operating system from the CAI 
package . 

VI. REQUIRED MATERIALS s AETECH "Ada Training Environment" 
or AETECH "IntegrAda" with the "On-Lxne Training and 
Reference Module", 

VII. PROCEDURE 

1. Power on. 

2. Log on to the drive where the "Ada Trainingr 
Environment" or "JntegrAda" with the ''On-Line 
Training and Reference Module" are installed. 

3. At the DOS prompt, change to the working directory 
where the CAI package has been installed. If the 
"Ada Training Environment" has been installed, then 
type CD\ATE\C0URSE. If the On-Line Training and 
Reference Module has been installed, then type 
CD\IADA. ^ 
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4. At the DOS prompt, type the appropriate command for- 
the CAI- package v?hich has been installed. l£ the 
"Ada Traxning Environment" has been installed, then 
type ATE. If the On-Llne Training and Reference 
Module has been installed, then type REFER. 

5. In the lower right corner of the screen, a square 
labeled "Ada Training Environment" will appear. 
Each tutorial block is listed. Select the proper 
block by using the up/down cursor key until the 
correct block is highlighted, then press Enter. 

6. within each block, there is a series of lessons. 
Unless otherwise instructed, you will take the 
lessons in order. Select the proper lesson by 
using the up/down cursor key, then press Enter. 

7. Within each lesson, there is a list of topics. 
Most topics consist of one screen of information. 
Select each topic in order by using the up/down 
cursor keys, then pressing Enter. 

8. Read each screen of information, and take notes on 
the key points presented. 

9. Press Enter. This will take you back to the list 
of topics. 

10. When you have completed the assignment, select 
QUIT from the topic menu. This will return you to 
the DOS prompt. 

11. Practice returning to the operating system and 
booting up the CAI system several times so that you 
are extremely familiar with this procedure. 

12. Power down computer, and clean up area. 

13. Record any questions, comments, or concerns you may 
have with using the system for your Instructor. 
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lABORATORY EXPERIMENT 



LhB Intro. 2 



I . MiOCK s I 
. UNITS Introduction 
XIIv IJIfi KUMBER; 02 
IV; LRB TITLES Introduction to the AETOCH^s ^Ht^fti^^ 



V. STUDENT OBJECTIVES s At the completion of this 
experiment, the student should be able to: 

1. Follow the oral instructions given by your 
Instructor on entering the IntegrAda environment. 

2. Follow the written instructions within the 
IntegrAda Reference Manual, Chapter 12, "Getting 
Started", and gain an understanding o£ how to 
create, edit, compile, bind, execute, and print Ada 
programs . 

VI. REQUIRED MATERIALS: 

1. Note ' iking materials. 

2. "IntegrAda" with "On-Line Training and Reference 
Module" . 

3. IntegrAda Reference Manual . Chapter 12: 
"Introductory Session", 

VII. PROCBDDRE 

1. Follow the procedures outlined in Chapter 12 of the 
IntegrAda Reference Manual, pages 12-2 through 
12-30. Since the system has already been installed 
for you, follow the oral instructions given to you 
by your Instructor on entering the system. 
Continue at step 5, page 12-2 of the IntegrAda 
Reference Manual. 

2. Record any questions you have about using the 
editor environment. 



3. Power down computer, and clean up area. 
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LAB intro.2 

TEACHER GUIDE 
lABORATORY EXPERIMENT 



I. BLOCKt I (Teacher Notes This laboratozy la only 
applicable to those inatzuctbrs who are 
utilizing the ASTBCB 'JntegzAda" with 
''€>n''Liae TreuJiing and Reference HtHSul^^. y 

'XI, mXTi Introduction' • ^ ■ x';;Sif. 

XXX, urn NUMBERS 02, ^ ' ^- \ 

IV, lAB TITLE? Introduction to the AETECH^s *'Inteflj:Ada^ 

with On*Line Training and Referericfe > 
Module** v;/: :>;l- 



V. STUDEliT OBJECTIVBSfi At the completion of this 
experiment, the student should be able tos 

1. Follow the oral instructions given by your 
Instructor on entering the IntegrAda environment. 

2. Follow the written instructions within the 
IntegrAda Reference Manual, Chapter 12, "Getting 
Started", and gain an understanding of how to 
create, edit, compile, bind, execute, and print Ada 
programs . 

VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. "IntegrAda" with "On-Line Training and Reference 
Module " . 

3' IntegrA da Reference Manual . Chapter 12: 
"Introductory Session", 

VII. PROCEDURE 

1. Follow the procedures outlined in Chapter 12 of the 
IntegrA da Reference Manual , pages 12-2 through 
12-30. Since the system has already been installed 
for you, follow the oral instructions given to you 
by your Instructor on entering the system. 
Continue at step 5, page 12-2 of the IntegrAda 
Reference Manual . 

2. Record any questions you have about using the 
editor environment. 

3. Power down computer, and clean up area. 
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BLOCK I 



Ada and the 



Department of O^ense 



o 
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INFORMftTION LESSON PIAN 



ILP I. A 



•SSS^^ ^ the Dejiartraent of Defense".' 

III. IJSSSpN Trr^ "The Software Crisis ** 




IV. LESSON OBJECTIVES: At the completion of this lesson, 
the student should be able to s 

1. Attribute advances in computer hardware and soft* 
ware, in the late sixties and early seventies, with 
the advent of the microprocessor. 

2. Identify amount of DOD annual expenditures for 
software . 

3. Identify two factors responsible for increased cost 
of software. 

4. Define "Software Maintenance". 

5. List the six problem areas associated with software 
development . 



V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block I, Unit 1 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on following sections: 

a. Increasing demand for software. 

b. Increasing software costs. 

c. Software to hardware costs. 

d. Software maintenance costs. 

e. Other major software costs. 

f. Problems with software development. 

g. Other life cycle problems. 

h. Problems with quality. 

i. Language proliferation. 
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VZ. SPBCZAL RESOURCES: 

AETSCH "Ada Training BnYironment" and "IntegrAda'* with 
"Oa^Line Training and Reference Module", 

Olson/Whitehall, Ada For Proorainmers , Ch. 1. 

Stein, Adas A Life and Legacy . Preface. 

Engle/Dominice, Introductory Ada Workshop . 

Softech, Basic Ada Prooraimninq L202 *. U.S. Army, 
Vol I. ' 

Soinmerville/Morrison, Software Development with Ada 
Ch. 1. 



VII. PRESENTATION: 

A. Introduction 

1. Tell ** Invasion of Grenada** story where Aanny's 
and Navy's computers couldn't communicate with 
each other, requiring an Army officer to make a 
credit card long distance call to North Carolina 
for naval support. 

B. Instructional Topics and Key Points 



TOPIC 


KEY POINT 


1. Increase Demand for 
Software 

2. Increased Cost for 
Software 

3. Factors responsible 
for software costs 

4. Software Maintenance 


la. Demands due to microproces-> 
sor which made systems more 
efficient, reliable, and 
accurate . 

2a. 6 billion annually by DOD. 

3a. Technological advances. 

3b. Higher salaries as demands 
for highly skilled 
programmers exceeds supply. 

4a. Definition - Program which 
now works that must be 
changed or modified to 
work differently. 
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TOPIC 


J . — _™_ — ^ 

KEY POINT 


5. Problems witih 

Software Development 


5a. 


Uni&odiflable - No one other 
than writer(s) can 
interpret software. 




Sb. 


Nontransportable- Software 
written & tailored to 
specific machine, and does 
not work on another 
machine. 




5c. 


Not Timely - Typically, 
software systems are 
delivered late. 




5d. 


Unresponsive - Software 
doesn't perform as required. 




5e. 


Inefficient - Software is 
frequently larger & slower 




5f . 


Unreliable - Software 
typically fails. 
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Q I. A 



"The Software Crisis" 
QUESTIONS 

Place your answer in the provided space for each of 
the following questions. 

1. Name two factors which are responsible for the high 
cost of software. 

2. Define Software Maintenance. 



3. Name the single factor which provided an enormous 
demand for software. 



4. List five of the six problems associated with 
software development. 

a. 

b. 
c. 
d. 
e. 

5. How much does the U.S. Department of Defense s 
annually for software? 



-15- 

22 



"The Software Crisis 

ANSWERS TO QUESTIONS 



1. Name two factors which are responsible for the high 
cost of software. 

Technological advances, demands for skilled 
programmers 

2. Define Software Maintenance. 

Operation/ program which now works but must be 
changed or modified to work differently. 

3. Name the single factor which provided an enormous 
demand for software. 

Microprocessor 

4. List five of the six problems associated with 
software development. 

a. Unmodifiable 

b. Nontransportable 

d. Not Timely 

e . Inefficient 

f. Unreliable 

g. Unresponsive 

5 . How much does the U.S. Department of Defense spend 
£innually for software? 

U.S. DOD spends approximately 6 billion dollars 
annually for software. 
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INFORMATION LESSON PIAN 



ZLP I.B 



I. BLOCKS X > "Ada and the Department o£ Defense*^ 
II, UNITS B 
III. LSSSON TITLE: "Goals for Software" 



IV. LESSON OBJECTIVES: At the completion of this lesson, 
the student should be able to : 

1. List the four goals for software. 

2. Describe what understandable software is. 

3. Define Modif lability as related to software. 

4. Discuss the impact of reliable versus unreliable 
software systems. 

5. Define Efficiency as related tc software. 

6. Discuss the importance of software Portability. 
V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 



3. CAI Assignment - Block I, Unit 2 

AETECH "Ada Training Environment" or "IntegrAd 
with "On^Line Training and Reference Module". 

Read & take notes on following sections: 

a. Understandability. 

b. Modif lability. 

c. Reliability. 

d. Efficiency. 

e. Portability. 

VI. SPECIAL RESOURCES s 

AETECH "Ada Trainincf Environment" and "IntegrAda" 
with "On-Line Training and Reference Module". 

Engle/Dominice, Introductory Ada Workshop . 

So f tech, Basic Ada Proorammina L202 -'U.S. Army, 
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VIZ. PRESBNTA.TX0N8 
A. Introduction 



1. E.G. Booth quotes 

"The basic problem is not our mismanagement of 
technology, but rather our inability to manage 
the complexity of our systems'*. 

B. Instructional Topics and Key Points 



TOPIC 



1. Five Goals of Software 



KEY POINT 



la. Unders tandabi 1 ity - software 
roust be understood by anyone 
who will write the code, look 
at the code, or modify the 
code. Software may only be 
written one time, but it is 
read many times. The easier 
software is to read, the 
easier software is to 
understand, the easier it is 
modify. (Refer back to costs 
for maintaining software) . 

Modifiability - Allows 
program to be changed to meet 
the new needs of the user, 
with a minimum of time and 
expense. 

Ic. Reliability - Software must 
perform as it is supposed to 
(Nuclear Attack Warning 
System Example), DOD 
reliability factors s 

a. Systems are lethal. 

b. Many systems are 
unattended. 

c. Systems must be fault- 
tolerant • 

Id. Efficiency - Achievina 

maximum performance within 
small hardware constraints. 
There are two ways to measure 
efficiencies o£ software 
systems t 

a. Amount of code. 

b. Speed of execution. 

le. Portability - Ability of 
a program to be used on 
different computers, where 
the software Is not hardware 
dependent . 
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"Goals for Software" 
QUESTIONS 

Place your answer in the provided space for each of 
the following questions. 

1. Define Understandability. 

2. Define Modi f lability. 

3. Define Reliability. 

4. Define Efficiency. 

5. Define Portability. 



2b' 
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"Goals for Software" 

ANSWERS TO OOESTIONS 



1. Define Understandability. 

Understandability - Software must be understood by 
anyone who will write, read, or modify the code. 

2. Define Modifiability. 

Modiflablllty - JVllows program to be changed to 
meet new requirements without having to write a new 
program. 

3. Define Reliability. 

Reliability - Software must perform as it is 
supposed to 

4. Define Efficiency. 

Efficiency - Achieving maximum performance, 2 ways 
to measure by a. small size and b. high speed. 

5. Define Portability. 

Portability - Ability of a program to be 
transported from one computer to another (software 
is not hardware dependent). 
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LABORATORY EXPERIMENT 



LAB I.B 



I. mJOCKt I - "Ada aad the Department of Defense" 
II. UNITS. B *Goals for Software" 
^ HI'. LAB KiniBERv 03 

IV. LAB TrCLBs '*MountainNet / AdaWet Demonstration** . 



V. STUDENT OBJECTIVES s At the completion o£ this 
experiment, the student should be able tos 

1. Understand the services provided by MountainNet 
and the AdaNet Bulletin Board. 

2. Access AdaNet. 

3. Sign on and download a file or bulletin from 
Adanet . 

4. Answer the questions at the end of this 
experiment . 

VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. Blank registration forms for AdaNet. 

3. A blank formatted disk. 
VII. PROCEDURE 

Follow the oral instructions for accessing AdaNet. 
Get into the system, and explore various topics, 
drawers, etc. Choose various materials that you 
would like to keep, and download these files onto 
your blank formatted disk. 

VIII. Questions 

1. What is MountainNet? What is AdaNet? 

2. What kinds of information are available from 
AdaNet? 
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TEACHER GUIDE 
lABORATORY EXPERIMENT 



LAB I.B 



X* BLOCK: I - "Ada and the Department of Defense"/ , ^ 
II. UNITS B "Goals for Software" 
in,- lAB NUMBERS 03 
IV, LAB TITLES "MountainNet / AdaNet Demonstration" 



V. STUDENT OBJECTIVES s At the completion of this 
experiment, the student should be able tos 

1. Understand the services provided by MountainNet 
and the AdaNet Bulletin Board. 

2. Access AdaNet. 

3. Sign on and download a file or bulletin from 
AdaNet . 

4. Answer the questions at the end of this 
experiment . 

VI. REQUIRED MATERUULSs 

1. Note taking materials. 

2. Blank registration forms for AdaNet. 

3. A blank formatted disk. 

VII. PROCEDURE 

TEACHER NOTES Contact the MountainNet User 

Representative well in advance of the desired date 
for the demonstration. If a representative is 
unable to come to your school for a demonstration, 
xt is recommended that the instructor be familiar 
enough with the AdaNet system to provide the 
demonstration. Otherwise, request registration forms 
so that the registration may be con^ieted and the 
students already have their packets of information 
for accessing AdaNet before the demonstration is 
presented. The address of MountainNet iss 

MountainNet, Inc. 
Eastgate Plaza 
P.O. Box 370 
Dellslow, WV 26531-0370 
(800) 444-1458 
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Follow the oral instructions for accessing AdaNet. 
Get into the system, and explore various topics, 
drawers, etc. Choose various materials that you 
would like to keep, and download these files onto 
your blank formatted disk. 

VIII . Questions 

1. What is MountainNet? What is AdaNet? 

KountainNet is a telecamnmnxcations corporation 
in Dellslotf, WV, whose purpose is to run the 
MaHet systemm AdaNet is an information service 
and software reuse research project designed to 
provide public domain software engineering and 
Ada for business, government, and academe, 

2. What kinds o£ information are available from 
AdaNet? 

Ada source code libraries, bibliographic 
references and publication Information, 
descriptions or public and commercial 
repositories, directories of products, 
listings of organdzations , listing of 
forums f etc • 
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INFORMATION LESSON PIAK 



ILP I.C 



T 


... ■, ■■'<.• • • ■■ ■' • • ' 




n. 


UNITS 




Ill,: 


IiBSSON 


TITLES ."Software Enaineerino" 



IV. LESSON OBJECTIVES: At the completion o£ this lesson, 
the student should be able to i 

1. Define Software Engineering. 

2. Describe Abstraction. 

3. Define Modularity. 

4. Describe Localization. 

5. Understand the principle of information hiding. 

6. Understand the principle of completeness. 

7. Define Conf iannability. 
V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block 1, Unit 3 

AETECH "Ada Training Environment" or "XntegrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on following sections: 

a. Combat Logistics Support Example. 

b. Abstraction. 

c. Modularity. 

d. Localization. 

e. Information Hiding. 

f. Completeness. 

g. Confirmability. 
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VI. SPECIAL RESOURCES s 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On-Lifie Trainzn(f and Reference Module", 

Engle/Dominice, Introductory Ada Workshop . 

Softech, Basic Ada Proarammina L202 - U.S. Army. 
Vol I. ^ 

VII. PRSSENTATION: 

A. Introduction 

1. Tell students that there is no uniform concensus 
for the definition of Software Engineering; then 
tell them that the following are goals of Soft- 
ware Engineering for DOD. 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Abstraction 



2« Modularity 



3. Localization 



4. Information Hiding 



la. As used in program 

development, is a process in 
which a system is 
viewed at several levels 
from simple to complex 
( top-down approach); where 
the programmer concentrates 
on the essentials, leaving 
the details for later time. 

2a. Programming tasks may be 
broken into individual 
modules (divide and conquer). 

2b. Module - Unit of code or 

program which may be written, 
tested, and function 
independently of other 
modules . 

3a. Related pieces of program 
code should be found In the 
system at close proximity to 
one another. It would not be 
wise to put two pieces of 
related code in separate 
modules . 

4a. Programmer writes parts of 
system which are inaccessible 
to other parts of system. 
Makes code immune to side 
effects from changes, to 
other parts of the system, 
which may occur. 
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B« Instructional Topics and Key Points 



TOPIC 


KEY POINT 


S« Completeness 
6. Confixmability 


5a. All required components and 
resources for a module to 
function properly must be 
made available to that 
module. 

6a. Software module can readily 
be tested with a minimum ox 
support from other modules. 
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IMFORMATIOK LESSON PLMH 



ZLP I.D 



lil> lasSOM TITOS: "A Brief iHlstorv of the 



IV. LESSON OBJECTIVES : At the completion of this lesson, 
the student should be able to : 

1. Define "Embedded Systems". 

2. Identify the company who developed the Ada 
programming language. 

3. Gain an understanding of the history /development 
of the Ada programming language. 

4. Define the function of the AJPO. 

5. Discuss the naming of the language. 

V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block I, Unit 4 

AETECH "Ada Training Environment" or "JntegrAda" 
with "On-Line Training and Reference Module". 

Read & take notes on following sections: 

a. A language for embedded computers. 

b. The Higher Order Language Working Group. 

c. Establishing the requirement. 

d. Starting the design. 

e. Completion of the design effort. 

f . Namxng the new language. 

g. Ada Joint Program Office. 

VI. SPECIAL RESOURCES: 

AETECH "Ada Trainina Environment" and "IntegrAda" 
with "On-Line Trainxng and Reference Module". 
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VXI. PRBSBNXAinON: 

A. Introduction 

1. Give a brief oral history o£ why DOD needed a 
Higher Order Language which could meet their 
needs . 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Embedded Systems 



2. Development of Ada 



la. Definition - a possible 
group of machines that are 
controlled by one or 
more computers, and 
function as one indepen- 
dent unit. 

2a. 1975 - Higher Order Language 
Working Group (HOLWG) 
Made up of members from 
academe, government, 
industry, and the three 
branches of the military, 
whose purpose was to review 
existing computer 
programming languages, and 
to develop requirements of 
the new computer language 
for use with DOO projects. 

1. Specify requirements of a 
language. 

2. Evaluate current 
languages against DOD 
requirements • 

3. Make recommendations on a 
language to use based on 
that evaluation, or 
possibly recommend the 
creation of a new 
language. 

2b. 1975 - Strawman document was 
developed; document provided 
initial specifications for 
new language. Strawman was 
submitted by HOLWG for 
review by all parties 
involved in language 
development . Comments 
incorporated into Strawman 
led to development of 
Woodenman, and Tinman 
documents (which were 
changes to Strawman). 
Tinman returned witn 
relatively few changes. 
Changes were made, and new 
document was called Ironman 
(1977). 
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B. Instructional Topics and Key Points 



TOPIC 


KEY POINT 


3. Honeywell->Bull 

4. Naming of Language 

5. AJPO 


3a. Company from Europe who won 
the language design competi- 
tion sponsored by DOD, 
to develop the Ada 
language. 

4a. Named for Lady Augusta Ada 
Lovelace (bom 18X5); 
daughter of Lord Byron 
(poet). Worked with Charles 
Babbage on his analytical 
engine. Is considered to be 
first prograxmner (due to 
notes she made during work 
on engine. 

5a. Ada Joint Program Office 
mission is to disseminate 
information to military and 
general public concerning 
Ada. Runs Ada Information 
Clearinghouse (AdalC) and 
CREASE (Catalog of Resources 
for Education m Ada 
Software). Monitors 
compiler compliances with 
DOD guidelines on Ada* 
Funded by AJPO through ITT, 
who manages the AdalC. 
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LAB X.D 

LABORATORY EXPERIMEKT 

I. BLOCKS I - "Ada and the Department of Defense" 

11. misti ly ■■• 

III . LAB NUHBSRs 04 
IV. XiAB TITLE: "Ada Information Clear inqhoase" 



V. STUDENT OBJECTIVES 8 At the completion of this 
experiment, the student should be able tos 

1. Identify the resources available from the Ada 
Information Clearinghouse . 

2. WL-ite a letter requesting AdalC to include the 
student on their mailing list, to receive AdalC 
information. 

VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. Letter bond, envelopes, and stamps. 

3. Student Data Disk. 
VII. PROCEDURE 

1. Draft a letter to the Ada Information 

Clearinghouse, requesting to be added to their 
mailing list. The address iss 

AdalC 

c/o ITT Research Institute 
4600 Forbes Blvd., Second Floor 
Lanharo, Maryland 20706-4312 

VIII. QUESTIONS 

1. What is AdalC? 

2. How is the program funded? 

3. What kinds of information are available from the 
Ada Information Bulletin Board? 
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TEACHER 6UIDE 
lABORATORY BXPBRIMENT 



I. 


BLOCKS I - 


"Ada and the Departinent of Defense** 


II* 


tlNI7s D . 




III. 


LilkB NUMBERS 


04 


IV. 


LAB TITLES 


"Ada Information Clearinahouse" 



V. STUDEX9T OBJECTIVES 8 At the completion of this 
experiment, the student should be able to: 

1. Identify the resources available from the Ada 
Information Clearinghouse . 

2. Write a letter requesting AdalC to include the 
student on their mailing list, to receive AdalC 
information. 

VI. REQUIRED MATERIALS s 

1. Note taking materials. 

2. Letter bond, envelopes, and stamps. 

3. Student Data Disk. 

VII. PROCEDURE 

1. Draft a letter to the Ada Information 

Clearinghouse, requesting to be added to their 
mailing list. The address is: 

AdalC 

c/o ITT Research Institute 
4600 Forbes Blvd., Second Floor 
Lanham, Maryland 20706-4312 



Teacher Note s Plan a follov up sesaion for this lab 
when the atudenta receive their packets from AdalC. 
They vill receive information on how to access the 
Ada Information Bulletin Board, aa well as other 
information that is of interest to the Ada 
community. 
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VIII. QOESTZONS 

1. What is AdalC? 

JMaXC is the Ada Information Clearinghouse which 
is paxrt of the AJPO, and is designed to 
disseminate information to the Ada community. 



2. How is the program funded? 

The pr€)gram is funded by AJPQ through ITT who 
runs the AdalC. 



3. What kinds of information are available from the 
Ada Information Bulletin Board? 

News articles, contract awards, validated 
cpn^iler listings, training seminars, con- 
ferences, etc. 



/ 
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"History of Ada" 
OUESTIOMS 

Place your answer in the provided space for each of 
the following questions. 

1. Define Embedded Systems. 

2. What does HOLWG stand for? What was it made up of? 
What did they do? 

3. What company designed Ada? 

4. How was Ada named? 

5. What does AJPO stand for? What do they do? 
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"History of Ada" 

ANSWERS TO OUESTIQMS 



1. Define Embedded Systems. 

Embedded systems - A group of machinery idiich is 
controlled by one or more on-board computers, and 
functions as an independent unit. 

2. What does H0LW6 stand for? What was it made up of? 
What did they do? 

HOLWG - Bigher Order Language Working Group, it was 
made up of acades^, govema^nt, and military to 
develop the reqpxirements for DOD's new language 
(Ada). 

3. What company designed Ada? 
Boneywell - Bull 

4. How was Ada named? 

Named for Lady Augusta Ada Lovelace, daughter of 
Lord Bxryon. she is considered the first program- 
mer. 

5. What does AJPO stand for? What do they do? 

AJPO - Ada Joint Program office, they operate 
AdalC and CREASE and their purpose is to dis- 
seminate information about Ada, and to also 
oversee con^liance with DOD Ada guidelines. 
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ILP I.E 



IKFORBI&TION LESSON PLAN 



v-e-- v; X%,:BLOCKt and the. , Department '"'o'£ . Defense:''-.; ; 

:-vilI.l;^lIfiSSb» ■ TiOJLEs "Defense Directives " ^ 



XV. LESSON OBJECTIVES: At the completion o£ this lesson, 
the student should be able to: 

1. Discuss the differences between standardization 
directives and acquisition policies. 

2. Understand the implications of DOD Directive 
5000.31. 

3. Understand the implications of DOD Directive 
5000.1. 

V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block I, Unit 5 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on following sections: 

a . Background . 

b. Warner Amendment. 

c. Higher Order Languages. 

d. Mission Critical Systems. 

e. DOD Directive 5000.31 

f. DOD Directive 50O0.1 

g. DOD Directive 5000.29 

VI. SPECIAL RESOURCES: 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On~Line Training and Reference Module", 
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VII. PRESENTATIONS 

A. Introduction 

1. Ask students question, "Why do you chink there 
are rules governing the use of the Ada program- 
ming language?" 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Standardization 
Directives 



2. Acquisition 
Policies 



3. DOD 5000.31 



4. DOD 5000.1 



la. Dictate which Higher Order 
Languages are allowed to be 
used in DOD systems. 

2a. Govern how systems and 
software are purchased by 
U.S. Government. 

3a. 1976 - Required use of an 
approved Higher Order 
Language for "Mission* 
Critical Systems**. 

3b. 1983 - stated "The Ada 

programming language shall 
become the single computer 
programming language for 
Defense Mission Critical 
applications . " 

4a. Major Systems Acquisition 
Policy - stated "Effective 
Jan. 1/84 for programs 
entering advanced development 
and July 1/84 for programs 
entering full»scale 
engineering development, Ada 
shall be the programming 
language . ** 
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BUIGRn 




BLOCK n 



Fundamentals oi 
Ada Progranmdng 
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INyORMATION LBSSON PIAH 



ILP I I. A 



!• BLOCKS IZ ~ <*Fundamentals of Ada Progranoning^ 
III / ISSSON TI«CLE8 A Basic Ada Program- ' : 



IV. LESSON OBJECTIVES: At the completion of this 
lesson, the student should be able tos 

1. Understand the purpose of each line of code in a 
simple Ada program. 

2. Understand the concept of a package. 

3. Define and identify a context clause. 

4. Identify how comments are incorporated in an Ada 
program. 

5. Understand the purpose of the following Ada 
keywords : 

a. with 

b. use 

c . procedure 

d. is 

e. begin 

f . end 

6. Gain an understanding of the conventional 
techniques used to make Ada code more readable 
and understandable. 

7. Gain an understanding of the structure of an Ada 
program • 

V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block II 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module '\ 

Read & take notes on the following sections; 

Block II, Lesson 1, Topic 1 
a. The Basic Ada Program. 
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VI. SPECIAL RESOURCES s 

AETECH "Ada Training Environment" and "IntegrAda" 
with '*On^Line Training and Reference Module'*. 

Skansholm, Ada^rom The Beginning . 
Addison - Wesley, 1988, pg. 30-31. 

VII. PRESENTATION 

A. Introduction 

1. Put on board a flowchart of "Hello Program". 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. 



"Hello Program" 
with Text_IO; 
use Text 10 



grocedure Hello is 
egin 

put ("HEIiLO THERE"); 
end Hello; 



2 . Packages 



3 . Comments 



la. 
lb. 



Ic. 
Id. 
le. 
If. 



a. 

b. 
c. 



2a. 
2b. 

2c. 

3a. 
3b. 
3c. 



Imports to main procedure 
"Hello** Textile resources. 
Uses abbreviated notation in 
lieu of extended dot 
notation. Notes Instructor 
should also show same pro- 
gram using extended dot 
notation. 

Name o£ main procedure. 
Begin execution of program. 
Output to screen. 
End execution of program. 

SYNTAX NOTES 

note upper and lower case 
style and non-sensitivity, 
note ; delimiter, 
note ( ) and " " for put 
(see Text_IO package). 

Definition - A collection of 
logically related program 
resources grouped together. 
Use the predefined package 
Text_IO to demonstrate one 
such package as per 2a. 
above. 

Identify context clause as 
the statement to be used to 
gain access to a package. 

Explain why comments are 
important . 

examples of comments for 
"Hello Program". 
Handout for program headers 
(HII.A.l) . 
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TOPIC 



KEY POINT 



4. Keywords 



4a. 



with - specifies the 



package to be made visible 
within another unit* 
4b. use — Zn£oxiQS craapiler pro* 
gram that programmer will not 
be using extended dot 
notation « 
4c . procedure - One form of Ada 
subprogram; the other form is 
a function* A procedure 
specifies a sequence of 
actions, and is invoked by a 
procedure call statement. 
4d. Is - tells what items are 
given. 

4e. begin - procedure execution 

starts here. 
4f. put - procedure provided 

within Text 10, puts a string 

to the screen. 
4g. end * stop execution of main 

procedure. 



5. Program Structure 



5a. 



Show the structure for a 
typical Ada program. 
(Handout HZI.A.2) 
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PROGRAM HEADERS 



KII.Al 



The following format should be incorporated into each of 
your orograms to provide necessary documentation, and also 
provide xdentification information for you and your 
Instructor. 



— -* Program Name 



— Author's Name : 

— Date s 
— - Assignment Numbers 



Program Executive . 

Provide a brief but accurate description of what the ; 
program does, and any other information which may be ; 
useful in describing your program. ; 
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HXX.A2 

A TYPICAL STRUCTDRB FOR AN ADA MMW PROCSPDRB 



(Context: Clauses) 




with ; use 


• 


pjCOCeCXuXe StArla XB 




(Place declarations 


here) ; 


begin 




(Program code) ; 




end NAHB; 
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lAB II. A 



lABORATORY EXPERIMENT 



/•^■:I;<;:;;B^^ '"Fundainentals'' b£ /.'i^a:;'P3;ogr£mming< 

^■i ji,>- 05 

;;:r^iiy;|.3^^ U!!A Basic Ada Program" 



V. STUDENT OBJECTIVES: At the completion of this 
experiment, the student should be able tos 

1. Write a simple Ada program. 

2. Compile, bind, debug, and execute a simple Ada 
program. 

3. Gain an understanding of what occurs in step 
(2) above. 

VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. AETECH "IntegrAda" with "On-Line Training and 
Reference Module". 

3. Student Data Disk. 
VII. PROCEDURE 

1. Using the editor environment, type in the 
following code and save it to a file called 
LABS. ADA 

Notes Be sure to include information from handout 
HII.A here I 

with Textile ; use Text_IO; 

grocedure~"<procedure_name> is 
egin 
put ("HELLO! "); 
end <procedure_name> J 

2. Compile, debug, bind, and execute the program. 

3. Make a print out of your program and executable 
code to turn in to your Instructor* 

4. Power down computer, and clean up area. 
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— * A Basic Ada Program * — ; 

Author's Name s TEACHER GUIDE 

Assignment Number t LAB # II. A s 



• 



Program Executive — - - . 

Below is a solution for Lab # II. A. This solution ma' 
be used by the instructor as a guide for helping 
students complete the laboratory assignment. 



with Text_IO; use Text_lO; 

procedure WELCOME is 
begin 

put( "HELLO I" ); 
end WELCOME; 
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INFORMATIOW LESSON PhMt 



ILP II. B 



■1 1 1 . LESSON Time s " Exist ifld Packages 



IV. LESSON OBJECTIVES: At the completion of this 
lesson, the student should be able tot 

1. Gain an understanding of how to use existing 
code from Ada packages in new Ada programs. 

2. Gain an understanding of the following keywords: 

a. with 

b. use 

3. Utilize simple subprograms from existing 
packages to perfom fundamental screen and 
keyboard operations needed for users to view and 
enter data to Ada programs. 



V. LEARNING ACTIVITIES! 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture. 

3. CAI Assignment - Block II 

AETECH "Ada Trainina Environmeint " or "JntegrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on the following sections! 

Block II, Lesson 1, Topic 6 

a. Using existing packages. 

VI. SPECIAL RESOURCES! 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On~Line Training and Reference Module". 

Johnson, The Ada Primer . McGraw-Hill, 1985, pg. 61 
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VIZ. PRESENTATION 

A. Introduction 



1. Handout copies of existing package 

specifications for SCREEN, KEYBOARD, and 
COLORS, and explain to students all this 

frograioming has already been done 
or the student. 



B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Existing Packages 



2. Keywords 



3. Utilizing Subprograms 



la. TEXT .,10 - Standard Ada 

package for input and output 
of characters and strings of 
characters. Does not include 
cursor, screen, color, 
function keys, or simple 
keypresses. Used mainly for 
file operations. 

lb. $ci^EN - Existing package 
used to handle simple cursor 
and screen operations. 

Ic. COLOR - Existing package used 
to set foreground and 
background colors for other 
operations found in package 
SCREEN above. 

Id. KEYBOARD - Existing package 
used to get and identify keys 
pressed by the user. 

2a. with - Hakes an existing 
package visible to your 
program (said to import an 
existing package to a main 
procedure ) . 

2b. use - Tells compiler that the 
programmer will not be using 
extended dot notation. 

3a. Give example using resources 
of several existing packages 
together to clear the screen 
in a color, set the cursor, 
print a message, and get a 
response from the user. 



ERIC 
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LABORATORY EXPERIHENT 



UVB IX. B 



XV BLOCKS II - ^Fundamentals of Ada Programming'' 



V. STODENT OBJECTIVES: At the completion of this 
experiment, the student should be able to: 

1. Identify the existing paclcages which the 
following program utilizes. 

2. Use existing packages for simple input and output 
of data* 

VI. REQUIRED HATERIALSs 

1. Note taking materials. 

2. AETECH "IntegrAda" with "On-Line Training and 
Reference Module", 

3. Student Data Disk. 

4. Specifications for packages SCREEN, KEYBOARD, 
COLORS, TEXT__IO. 

VII. PROCEDURE 

1. Given the following simple program using typical 
inpat and output, xdentlfy the source package 
from which each of the following bold faced 
procedures and data structures come, by using 
extended dot notation. That is, if "SET CURSOR" 
is found in package SCREEN, then rewrite""the 
procedure to read "SCREEN. SET_CURSOR" . 

2. Given the specification for Ada package TEXT 10, 
list those subprograms which are also available 
without other existing packages. 

( Program on next page ) . 



o 
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Save your program as I1AB6.ADA. 



with SCREEN, KEYBOARD, COLORS, TEKT ZO; 
use SCREEN^ KEYBOARD, COLORS; " 
procedure TKY IT is 

KEY:A_KEY?"" 

CH: CHARACTER; 
begin 

SET BACKGROUND(BLU£); 
SET"F0RB6R0UND( YELLOW) ; 
CLEMTSCBEEN; 
loop 

SETJCaRSOR{25,l); 

PUrf" ENTER Any Key to Continue or <ESC> to 
£soape'=> " ) ; 
FRESS(A KBY,CH); 
PUT(A_jSY'IMAGE(KEY) ) ; 
exit when KEY»ESC; 
end loop; 
end TRY_IT; 



3. Compile, debug, bind, and execute the program. 

4. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

5. Power down computer, and clean up area. 
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— * Existing Packages *— ; 



Author's Name t TEACHER GUIDE 

Assignment Number ; LAB # ZI.B ; 



Program Executive — 

— Below is a solution for Lab # II. B. This solution may be 

— used by the instructor as a guide for helping students 

— complete the laboratory assignment 

with SCREEN, KEYBOARD, COLORS, TEXT 10; 
use SCREEN, KEYBOARD, COLORS? 

procedure TRY IT is 

KEY: KSYBOARD.A KEY; 

CH s CHARACTER; - 
begin 

COLORS .SET BACKGROUND ( BLUE ); 
COLORS. SET^FOREGROUNDJ YELLOW ); 
SCREEN. CLESR SCREEN; 
Loop "* 

SCREEN. SET CURSOR( 25, 1 ); 
SCREEN. POT(Tany Key to Continue or <ESC> to Escape 

KEYBOARD. PRESS ( i&Y, CH ) ; f a 

SCREEN. PUTf A KEY'IIIAGE( KEY ) ): 

exit when KEY""* ESC; 
end Loop; 
end TRY IT; 



with SCREEN, KEYBOARD, COLORS, TEXT 10; 
use SCREEN, KEYBOARD, COLORS; ~ 
procedure TRY IT is 

KEY: KEYBOAI5I5.A KEY; 

CH s CHARACTER;" 
begin 

SET_BACK6R0UND( BLUE ); 
SET FOREGROUND? YELLOW ) ; 
CLESR SCREEN; 
Loop *** 

SET__CURSOR{ 25, 1 ); 
^^mssi^^^l'^S ^7 Continue or <ESC> to Escape =>"); 

TEXT_IO.PUT( A KEY'IMAGEf KEY ) ); 
exit when KEY = ESC; 
end Loop; 
end TRY IT; 
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INFORMftJIQN LESSON PIAN 



ILP II. C 



I> BLOCK* II - "Ftindamentals of Ada Programming" 

II. imiTs c V 

III. LESSON TrCLEs "Package Text_IO" 



IV. LESSON OBJECTIVES: At the completion of this 
lesson, the student should be able to: 

1. Use the non-generic resources provided within 
Text_IO . 

2. Instantiate and use the generic packages 
Integer^IO, Float^IO, Pixed_IO, and 
Enumeration_IO . 

3. Describe and use the width and base parameters 
provided for Integer__lO. 

4. Describe and use the Fore, Aft, and Exp 
parameters provided for Pixed_IO and Float_IO. 

V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block VI 

AETECH "Ada Trainingf Environment" or "IntegrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on the following sections: 

Block VI, Lesson 4, Topics 1-11 

a. Package Text_IO. 

b. Instantiation. 

c. Console input / output . 

d. File handling. 

e. Characters and new_line. 

f . Strings . 

g. Working with strings. 

h. Integer 10. 

i. Float lO. 



1. Fixed__IO. 

k. Enumeration 10. 
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VI. SPECIAL RESOURCES: 

AETECK "Ada Training Environment** and "IntegrAda" 
with "On^Line Training and Reference Module". 

VII. PRESENXATION 

A. Introduction 

1. Inform students that package Text 10 provides 
the basic resources for input /output of text 
or data text files. The standard default 
input file is the keyboard. The standard 
default output file is the screen. 

B. Instructional Topics and Key Points 



j TOPIC 


KEY POINT 


1. Text_IO 

2. Generics 

3 . Integer__IO 


la. Is a predefined package which 
contains subprogram resources 
(for I/O of strings and 
characters) and generic 
package for I/O of Integers, 
Floats, Fixed, and Enumerated 
type objects. 

2a. Integer 10, Fixed 10, 

Float I?5, and Enumeration 10 
are the names of generic 
packages within Text 10 
which must be instantiated 
in order to gain access to 
the I/O resources for their 
respective types. 

3a. Width - defaults actual width 
of the type when the package 
was instantiated. 

3b. Base - an optional parameter 
which allows for working with 
different base number 
systems. Default is 10. 
(where subtype Number Base is 
Integer Range 2 . . 16 ) " 



B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



4, Fixed 10 and 
Float""!© 



4a. 



Fore - An optional parameter 
which specixies the number 



o£ character positions to 
the left of the decimal. For 
Floating Point types. Fore 
defaults to 2; for fixed, 
number in type given. 

4b. Aft - An optional parameter 
which specifies the number of 
character positions to the 
right of the decimal. For 
floating point types, 
defaults to number in type 
-1; for fixed, number in 
type. 

4c. Exp - An optional parameter 
which specifies the number 
of character positions to use 
for the exponent part. 
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LAB XI. C 

liftBORATORY EXPERIMENT 



BL^ tl - "Fundamentals of Ada Programming" 

' : ;;iv;;^^: M '^Trn^ $ : ^'Ohm^s liaw '■Z::- JkMMS 



V. STUDENT OBJECTIVES: At the completion of this 
experiment, the student should be able to: 

1. Compile, bind, debug, and execute an Ada program 
which calculates voltage based on user input 
values for current and resistance. Ohm's Law 
states that voltage (voltsj is equal to 
current (amps) multiplied by resistance (ohm's). 

V = I * R 

2. Modify the program so that current is calculated 
using floating point types. 

3. Modify the program so that resistance is 
calculated using floating point types. 

VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. AETECH "IntegrMa" with "On^Line Training and 
Reference Module", 

3. Student Data Disk. 
VII. PROCEDURE 

1. Using the editor environment, type in the 
following code and save it to a file called 
liABTA.ADA. Be sure that you include, all 
information as per handout HII.A. "Program 
Headers " . 
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Ohm's Law, Voltage Calculation *— 

Author's Name s 
— Assignment Number : LAB # II .C ; 

Program Executive « 



with TEXT__IOy use TEXT__IO; 

procedure OHMS is 

package IntegerlO is new INTE6ER_I0( INTEGER ); 

V, X, Rs INTEGER; 
begin 

PUT( "Enter Current (in Amps)s 
IntegerlO. GET ( I ); 
NEWJCINE; 

PDTJ "Enter Resistance (in Ohms): 
IntegerlO. GET ( R ); 
NEW LINE; 
V 8= I * R? 
NEW LINE; NEWSLINE; 
POtJ "*♦*** Voltage (in Volts) « " ); 
IntegerlO. PUT ( V, Width »> 1 ); 
PUT( - *****«); 
NEWSLINE; 
end 01^; 



2. Compile, debug, bind, and execute the program. 

3. Print out a copy o£ your program, and your 
executable output to turn in to your Instructor. 

4. Modify the program to calculate current based on 
input values or voltage and resistance. Change 
the type of current, voltage, and resistance to 
float. Be sure that you instantiate the required 
generic package within Text_IO. Follow steps 2-3 
above, saving this new program as LAB7B.ADA. 

5. Modify the program in step 4 to calculate 
resistance based on input values of current and 
voltage. Follow steps 2-3 above, saving this new 
program as LAB7C.ADA. 

6. Power down computer, and clean up area. 
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— * Ohm's Law, Current Calculation * — ; 
****************************** 

— Author's Name : TE2U!BER GUIDE ; 

— Assignment Number : LAB # II.C, Procedure 4 

™— — Program Executive — 

— Below is a solution for Lab # ZI.C, procedure number 4. 
This solution may be used by the instructor as a guide 

— for helping students complete the laboratory assignment. 



with TEXT_IO; use TEXT__IO; 

procedure 0HMS2 is 

package FloatIO is new FLOAT__IO( FLOAT ); 
use FloatIO; 

V, I, Rs FLOAT; 

begin 

POT ( "Enter Voltage (in Volts): "); 

6ET( V ); 

NEWSLINE; 

PUTJ "Enter Resistance (in Ohms)s "); 

6ET( R ); 

NEW LINE; 

I s« V / R; 

NEW_LIHE; NEWSLINE; 

PUT( "**♦** Current (in Amps) = " ); 

PUT( I, Aft => 2, Exp => 0 ); 

PUT( " *****»)• 

NEW LINE; 
end OmiS2; 



— * Ohm's Law, Resistance Calculation * — ; 

— Author's Name ; TfiACHSR GUIDE f 

— Assignment Number s LAB # II.C, Procedure 5; 

^ — ... Program Executive 

— Below is a solution for Lab # II.C, procedure 5. 

— This solution may be used by the instructor as a guide 

— for helping students complete the laboratory 
assignment • 



with TEXT^IO; use TBXT_IOj 
procedure 0HMS3 is 

package FloatIO is new FLOAT_IO( FLOAT ); 
use FloatIO; 

V, I, Rj FLOAT? 

begin 

PUT( "Enter Current (in Amps)s 

6ET( I }; 

NEWSLINE; 

POT( "Enter Voltage (in Volts): 
GET( V ); 
NEW LINE; 
R J« V / I; 
NEWSLINE; NEW LINE; 

PUT( "♦**** Resistance (in Ohms) = " ); 
PUT( R, Aft => 2, Exp => 0 ); 

POT( " ***** M J J 

NEWSLINE; 
end 0HMS3; 
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ILP II. D 

IKFORMftglOK LESSON PIAN 



I. BLOCK* II -Fx 




ial$-'iioi;^;Ada;^PrOg^ 












:l|ii|ijLBS^ 


"Pack 


aae :'Standard*?^' 





IV. LESSON OBJECTIVES: At the completion of this lesson, 
the student should be able to: 

1. Define the type Boolean. 

2. Understand the following functions, and be able 
to diagram the truth tables for them: 

not and 
or xor 

3. Identify the operations that are available for 
mixed types, and describe the returned results. 

4. Define the following predefined subtypes: 

Natural Positive 
Short_Integer Long Integer 
Short_Float Long~Float 

5. Identify what predefined operations are provided 
by package STANDARD for strings, and identify 
what is retuintied by these operations. 

V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture. 
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V. LEARNING ACTIVITZBS (continued): 

3. CAI Assignment - Block VI 

AETECH "Ada Trainina Environment* or "IntegrAda" 
with "Ofl-Line Training and Reference Hodule", 

Read & take notes on the following sections! 

Block VI, Lesson 1, Topics 1-10 

a. Using package STANDARD* 

b. Boolean functions. 

c. Integer functions. 

d. Float functions. 

e. Mixed functions. 

f. Type Character. 

g. ASCII control constants. 
. ASCII character constants, 
i. Predefined subtypes, 
j. String functions. 

VI. SPECIAL RESOURCES 8 

AETECH "Ada Training Environment" and "IntegrAda"* 
with "On^Line Training and Reference Module", 

VII. FRESENTATION 

A. Introduction 

1. Define package STANDARD as a package which 
provides many primary operators for the 
predefined Ada types (i.e. for Integers). 
Remind students that they don't have to 
instantiate the package because it is not a 
generic. Package STANDARD is automatically 
'^withed- and "used" by the compiler for all 
units . 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Type BOOLEAN 



2. Logical Operators and 
their Truth Values 



la. A predefined type which can 
have a value or either true 
or false. Has the operators 
>, <, etc. defined for it, 
(give examples) . 

2a. not (for X) - the value of X 

is reversed. 
2b. and (X AND Y) -both X and Y 

must be true to return tzniet 



X 



p 

F 
T 
T 



P 
T 
P 

T 



Result 



F 
P 
F 
T 
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B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



2. Logical Operators and 
their Truth Values 
(Continued) 



2c. or (X OR Y) - either X or Y 
must be true to return true: 



X 


y 


Result 


F 


F 


F 


F 


T 


T 


T 


F 


T 


T 


T 


T 



3. Mixing Types 



3a. 



4. Predefined Subtypes 



4a. 



5* Strings 



5a 



5b. 



5c 



2d. xor (X OR y but not both) - 
either x or y can be true to 
return true, but not both of 
thems 



X 


y 


Result 


F 


F 


F 


T 


F 


T 


F 


T 


T 


T 


1J1 


F 



The following operations are 
available for mixing real 
numbers with integers s 
Multiplication - defined for 
either real or integer as 
first number. Returns real. 
Division - denominator is 
integer. Returns real. 

Natural 0 . . integer ' last 
Positive 1 . . integer ' last 
Short Integer, Long Integer 
Short_Float, I.ong_PToat - all 
are implementation defined, 
where computer defines 
boundary based on its own 
internal structure. 

Definition - unconstrained 
array of characters. 



Operations : 



— ' , >^ - 

(give examples) 

& - will concatenate any 
combination of strings and 
characters. Returns string. 
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B. Instructional Topics and Key Points 



1 TOPIC 


KEY POINT 1 


6. Arrays 


6a. Basic operations include 

assignment, m^xbership tests 
indexed components, qualifi- 
cation, and explicit 
conversxon* For one dimen- 
sional arrays, slices and 
string operations are 
supported. 
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LAB XI. D 

lABORATORY EXPERIMENT 



I* 


BLOCKS II - 


"Fundamentals of Ada Programming 


ZI« 






III* 


LAB I10HBERS 


->■■.: •• : .\. . ■\-\'.^.^.</y.-y''''^ ■.•■:'.•.<: y . ^.■^.■i^y. : y.' ' i,'^^^ 




lAB. SXTLBs 


^Workina with Packaae Standard"* 









V. STDDENT OBJBCTXVESs At the completion of this 
experiment, the student should be able to: 



1. Compile, bind, debug, and execute an Ada Program 
which outputs Natural and Positive type objects. 

VI. REQUIRED MAXERIALS: 

1. Note taking materials. 

2. AETECH "JntegrAda" with "On-Line Training and 
Reference Module". 

3. Student Data Disk. 
VII. PROCEDURE 

1. Write a procedure which declares Object_l as a 
Positive Integer, and Object_2 as a Natural 
Integer. Output the smallest value possible 
('First) for each of the objects. Save this 
program as LABS.iiDA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

4. Power down computer, and clean up area. 
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— * Working with Package Standard * — ; 

— > Author's Name s TEJICBER GUIDE ; 

Assignment Number s LAB # II.D ; 

Program Executive — — — — — 

~ Below is a solution for Lab # II.D. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 



with TEKT_IO; use TEXT_IO; 

procedure PRINT_FIRSTS is 

package PositivelO is new INTEGER 10 ( POSITIVE ); 
package NaturallO is new INTEGER_IO( NATURAL ); 

Object 1 s POSITIVE; 
Object;^2 : NATURAL; 
begin " 

Object 1 5= POSITIVE 'FIRST; 
Cbjeit 2 8= NATURAL 'FIRST; 
m»_ -iINE; 

PUT 4 "Smallest Possible POSITIVE value iss " ); 
PositivelO. ?iT( Ob ject_l. Width => 2 ); 
NEWSLINE,' HFV LINE; 

PUT{ "Smallest Possible NATURAL value is: " ); 
NaturallO. PUT { Object 2, Width => 2 ); 
NEW LINE; 
end PRINT_PIRSTS; 
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INFORMftTIOH LESSON PIAN 



ILP II. E 



''^^;::'i, ?mj[KKi[l^t' - -'."^Fandamentais' ot -Ada ' Progafammihg"/ ■ 
ill; IiBSSOM TITLES ^^SimpXe Declarations 



IV. LESSON OBJECTIVES : At the completion of this lesson, 
the student should be able to: 

1. Define variable objects. 

2. Define the following types: 

a. Integer (including positive and natural). 

b. Real (including fixed and float). 

c. Character. 

d . String . 

3. Perform simple variable object declarations with 
initializations . 

4. Perform simple variable object assignment. 
V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block II 

AETECH "Ada Training Environment" or "JntegrAda" 
with "On'Line Training and Reference Module'*, 

Read & take notes on the following sections: 

Block II, Lesson 1, Topic 2 

a. Simple Declarations. 

VI. SPECIAL RESOURCES: 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On-Line Training and Reference Module". 
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VII. PRESBNTASIQN 

A. Introduction 

1. Use an example o£ a person's age being a 
variable; includes 

String - July 1, 1960 
Integer - 711960 
Real - 711960.6 



B. Instructional Topics and Key Points 



1 TOPIC 


KEY POINT 


1. Variables 

2. Variable Types 


la. In Ada, variables are one 
type of objects. 

lb. Variables provide a way to 
save and retrieve data. 

Ic. Variables of different types 
cannot be mixed implicitly. 

2a. Discretes 

Integer - A signed 
v^.'iole #.(no fractions or 
decimals) may utilize 
isolated embedded 
underscores. Two predefined 
subtypes : 

Natural-includes 0 
Positive-doesn't include 0. 

2b. Real - A signed 

approximation of a number 
with a fractional or decimal 
part. Two types s 
£XAca — neax numoers wnere 
approximation's error bound 
is specified as an absolute 
value. Brror bound is called 
the delta of the fixed point 
type. 

Float - Real numbers where 
approximation's error bound 
is specified by a minimum 
number of significant decimal 
digits . 

2c. Character -A digit, letter 
or some other single symbol. 

2d. String - One or more 

characters; a one dimensional 
unconstrained array whose 
components are characters. 



-63 



B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



3. Variable Object 
Declaration 



4. Variable Assignment 



3a. Select a meaningful 

identifier to reference the 
variable. 



3b. 



3c. 



3d. 



Specify the type of object 
that the variable may 
contain, (give examples) 



Optionally assign the obj< 
an initial value. Identif: 



lect 
liers 

must start with alpha 
character, may be any 
reasonable length, may 
contain letter8/digits/& 
underscores, no blanks, no 2 
adjacent underscores (single 
embedded underscores; no 
trailing underscores). 

Variables have no value 
unless initialized, or given 
a value in an assignment 
statement. 



4a. Use s- to make assignment 
of right side, to variable 
object on left side. 

4b. Identifier appears on left 
side of assignment statement. 

4c. Expression on right side must 
be of the same type as 
variable on left, because Ada 
is a strongly typed language. 

4d. May make assignment in 
declaration. This is 
called initialization. 
( give examples ) . 
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IJVB II. E 

liABORATORY EXPERIMENT 



!♦ BLOCK? II - ^'Fundamentals of Ada Programming 
\ TV. XM iriTOBs -'^ ^"Simple DecXarations^'fflMcksheet:^ ;/' kcl^'^)-:'^-^ 

' ^ ' ' s > ' > , ^ , , ^ . ' s ;5 s s% 

V. STUDENT OBJECTIVES s At the completion of this 
experiment, the student should be able tos 

1. Complete the worksheet "Simple Declarations". 

VI. REQUIRED HATERIALSs 

1. Writing Utensil. 

VII. PROCEDURE 

1. Complete the attached worksheet "Simple 
Declarations " . 



o 
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LAB IX. E 



"Simple Declarations" 
WORKSHEET 
A. Perform the following operations: 



a 


variable 


of 


type 


integer. 


a 


variable 


of 


type 


string. 


a 


v£iriable 


of 


type 


character. 


a 


variable 


of 


type 


natural . 


a 


variable 


of 


type 


positive. 


a 


variable 


of 


type 


fixed. 


a 


variable 


of 


type 


float. 


a 


variable 


of 


type 


string with 10 



9. Declare a variable of type integer, and assign 
it an initial value of 10. 

10. Declare a variable of type fixed, and assign it 
a value. 

B. Identify whether the following operations and 
assignments are legal, or whether an error would 
occur. Circle L for legal and E for error. If E, 
explain why an error would result. 



As INTEGER; 
Bs CHARACTER; 
CsSTRIN6(1..6); 
Ds FLOAT; 



EsFIKED; 
P 8 POSITIVE; 
GeNATURM.; 



1. 


As=10; 
A:«2041.2; 


L 


E 


2. 


L 


E 


3. 


C:=A+B; 


L 


E 


4. 


B: = «A»; 


L 


E 


5. 


Di=6.14; 


L 


E 


6. 


E=3.45 


L 


E 


7. 


B:='C'; 


L 


E 


8. 


F:=-6.0; 


L 


E 


9. 


Fi=0; 


L 


E 


10. 


Gj=0; 


L 


E 
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Lm II. B 





"Simple Declarations*' 




ANSWERS IX} OUESTXONS 


A. Perform the following operations s 


For part A, 1^10, each individual student will provide 
a different answer, therefore teacher should follotf 
variable declaration guidelines in determining the 
correctness of the picovided student answerm 


B. Identify whether the following operations and assign- 
ments are legal, or whether an error would occur, 
circle L for legal and E for error. If E, explain why 
an error would result. 


A: INTEGER; 
B: CHARACTER; 
CtSTRIN6(1..6); 
D: FLOAT; 


E:PIKED; 
Fs POSITIVE: 
GsNATURAL; 


1. As»10; L 

2. As-2041.2; L 


E 

g - number caxmot have 

decimal point if it is 
declared as integer. 


3. C:=A+B; L 


E - cannot perform 

operations on objects 
of different type. 


4. B8-"A"; L 


E - quotes are around 
strings, not 
characters; apostrophes 
are around characters. 


5. D!=6.14; L 

6. E=3.45 L 

7. B: = 'C'; 

8. Ps=g.O; L 

9. F:=0; L 


E 

I - missing colon, missing 
semicolon . 

E 

E - number not positive 

1 - positive doesn't include 0. 


10. Gi=0; L 


E 
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ILP II. P 



; BliOp^ II - ^Fundairientala of Ada. yrpgraaaning*' 





IV. LESSON OBJECTIVES 8 At the completion of this lesson, 
the student should be able tos 

1. Identify and understand a specification for an 
existing package. 

2. Identify formal and actual parameters of 
subprogram and fimction specifications. 

3. Identify the three modes of parameter passing 
and understand how to use each mode of 
parameter passing. 

4. Identify "named" and "positional" notation for 
use with calling subprograms. 

V. LEARNING ACTIVITIES S 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment » Block II 

AETBCH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on the following sections! 

Block II, Lesson 1, Topics 3-5 

a. Parameters. 

b. Specifications. 

c. Calling procedures. 

VI. SPECIAL RESOURCES: 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On-Line Training and Reference Module". 

Skansholm, Ada From The Beginning . Addison-Wesley, 
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VII. PRESBK^CATION 



A. Introduction 

1. Hand out specifications for any existing 
package, and have students look at those 
specifications {those things in () } and ask 
it anyone knows what it is. 

{Answers Formal parameters and their modes and 
type). 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Parameter 



2 . Specification 



3. Modes of Parameters 
(As used with a main 
program as caller, 
and a procedure as 
the called unit). 



la. Definition - The object 
(variable) used in passing 
values when a proceaure or 
function is called. Values 
are passed from main or 
calling unit to or from the 
subprogram. There are two 
types of parameter lists. 

FORMAL - Those parameters 
listed in the specification 
of a function or subprogram, 
which will be used as holders 
for the data passed to/ from 
the actual parameters. 

ACTUAL - Those parameters 
listed in the calling 
program, which will be used 
to pass data to/ from the 
called function or 
subprogram's formal 
procedures, on a Isl basis. 

2a. Definition - The portion of a 

fackage, procedure, or 
unction which tells the user 
how to use, or interface with 
it. 

2b. Lists parameters 

that are used by that 
package, function, or 

frocedure. For a subprogram 
t lists the names, modes, 
and types of the parameters. 

3a. IN •A main procedure is said 
to "drive" system. When the 
main procedure calls the sub- 
program and the subprogram is 
executed, the actual 
parameter in the call gives 
value to the formal 
parameter. In the 
subprogram, the formal para- 
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B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



3» Modes of Parameters 
(As used with a main 
program as caller, 
and a procedure as 
the called unit) . 



4. Types of 
Association 



meter acts like a constant « 
therefore its value cannot be 
changed (acts like a literal 
in the called unit) • 

3b. OUT When the main program 
calls the subprogram and the 
subprogram is executed, the 
formal parameter ' s value is 
undefined (the formal para- 
meter is a variable object 
in the main procedure) . 
In the called unit, this 
formal, since it is 
undefined, may not appear 
on the right hand side of 
the assignment statement. 
The value of formal para- 
meter, when assigned, will be 
passed back to actual the 
parameter upon completion of 
subprogram or function (sends 
value back to the main 
procedure) • 

3c. IN^OUT - The formal parameter 
has a value at the time of 
call* In a procedure, the 
formal parameter is used as 
an ordinary variable, whose 
value can be used & changed. 
If formal is changed, then 
actual will be changed when 
formal exports value upon 
completion of the subprogram. 

4a. When a call is made the 
actual parameters are 
associated with formal 
parameters by either named 
association or positional 
association. 

NAMED ^ ASSOCIATION - In named 
association, the name of the 
formal parameter is given in 
the actual call list followed 
by a sign followed 

by a value or variable. 



POSITIONAL ASSOCIATION - In 
positional association, the 
value of the actual parameter 
is passed via its position in 
relation to the formal 
specification list, on a Itl 
basis . 
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LAB II. F 



LABORATORY EXPERIMENT 



I. 


BLOCKS 11 «- 


"Fundamentals of Ada Programming" 


TT 


~ usix s a ■. 




III. 


LAB. NUMBERS 




\; iVt 




«Combinina Existing Packacres*' 









V. STUDENT OBJECTIVES s At the completion of this 
experiment, the student should be able tos 

1. Write a simple procedure which uses both the 

predefined Ada packages STANDARD and CALENDAR for 
computations, and other existing Ada SCREEN and 
KEYBOARD packages for input and output. 

VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. AETECH "IntegrAda" with "Oifline Training and 
Reference Module", 

3. Student Data Disk. 

4. AETECH IntegrAda or Alsys "AdaUser" Libraries. 
VII. PROCEDURE 

1. Using the provided example, enter the simple 

grocedure which calculates the time difference 
etween two user input responses, the existing 
packages SCREEN and KEYBOARD for user control and 
the instantiated package from TEXT 10 for output 
of the type DURATION. 
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Examples 



with TEXT_IO,KEyB0ARD,CALENDAR,SCREEN? 
use KEYBOARD, CM.SNDAR, SCREEN; 
procedure TZSffi IT is 

STAR3*jrXME,FINISH TZMEtTIMS; 

package DimHTZON lo is new 

TEXT_IO.FIXED_IO(DORATION) ; 

use DURATZON ZO; 

KEYsXSYBQAROTa KEY; 

CHsCHARACTER; " 
begin 

loop 

CLEAR_SCREEN; 

POT_LZNB( "Press any key to start timing, or 

<BSC> to Quit«>''); 

PRESS(KEy,CH}; 

START TZIfE$»CLOCK; 

exit v^en KBY^ESC; 

PUT LINE ("Press any key to stop 

timng M=aaB«e>"Jj 

PRESS (KEY, CH); 
PZNZSH.TZME s "CLOCK; 

PUT ("The time elapsed between start and 

stop was »««a8ss> » J • 

DURATION ZO.PUT(FZNZSH TZME-START TIME): 
delay 3.0; " - / ' 

end loop; 
end TZME_ZT; 



Save your program as LABIO.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program and your 
executable output to turn in to your Instructor. 

4. Power down computer, and clean up area. 
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INFQRHATIOM LESSON PI»RN 



1. BLOCK: II - '♦Fundamentals of Ada Programming*' 
III. LESSOM TITLES Data Types" 



IV. LBSSOI? OBJECTIVES: At the completion of this lesson, 
the student should be able tos 

1. Identify two primary declaration statements of 
the Ada programming language ( Object 
declarations and Type declarations). 

2. Declare objects and types and understand the 
operations that may be performed on them. 

3. Identify the operation limitations for objects 
and types. 

4. Understand the use of a declare statement, and 
why and when declarations are performed within a 
program. 



V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture. 

3. CAl Assignment - Block III 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module". 

Read & take notes on the following sections: 
Block III, Lesson 1, Topics 1-5 

a. Data structures. 

b. Type declarations. 

c. Operations on types. 

d. Limitations on operations. 

e. Location of declarations. 

VI. SPECIAL RESOURCES s 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On-Line Training and Reference Module". 
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VII. PRESENTAiriON 

A. Introduction 

1. Compare objects and types to packing boxes in 
that an object is the name o£ the ^pty box, 
and the type is what the box may hold. The 
packing ol boxes is done using Initialization 
or assignment. 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Primary Declarations 



2. Declaring objects 
and types 



3. Limitations 



4. Location of 
Declarations 



5. Declare Statement 



la. Two primary declarations: 
a. t^es b. objects 

lb. Types - defines a set of 
operations and values that 
an object may have. 

Ic. Object •* (variable) - entity 
which can take on a value and 
use the operations defined 
for its type. 

2a. Ensure that the student can 
do this by showing many 
examples . 

3a. Objects cannot be assigned 
values of other types; no 
mixing of types (apples and 
oranges). This is Ada's 
strong typing characteristic. 

3b. Objects cannot have 

operations performed on them 
that are not specified for 
that type (refer to package 
STANDARD for operations ) . 

4a. Declarations must come 
before any attempt to use 
them. 

4b. Declarations can occur in 
specification part of 
package, or declaration part 
of block, package body, or 
subprogram. 

5a. May use declare statement to 
declare objects later in 
structure, (i.e. inside a 
local block) . 

5b. Three Components to Declare 
Statements "Declare" followed 
by declarations then "begin" 
and "end", where begin/end 
represent the local block. 



ERIC 
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ILP II. H 



INFORMATION LESSON PLAN 



I. 


BItOCKs 




II. 


UNIT: 


H , 


III. 


I£SSON 


TITLES "Ada Scalar Tvdss" 



IV. LESSON OBJECTIVES: At the completion of this lesson, 
the student should be able to: 

1. Identify the predefined Ada types including 
Integer, Float, Fixed, Character, and Boolean. 

2. Understand the use of explici'r; typing, and be 
able to declare explicit types. 

3. Define Integer, Float, and Fixed types. 

4. Be able to declare objects of pr'jdefined data 
types . 

V. LEARNING ACTIVITIES; 

1. 'fake notes on lecture presented by Instructor. 

2. Participate in class discussion of pr.asented 
lecture. 

3. CAI Assignment - Block III 

AETECH "Ada Training Environment" or "JntegrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on the following sections: 

Block III, Lesson 2, Topics 1-5, 7, 8. 

a. Predeiined Integer types. 

b. Explicit typing. 

c. Assignments within te.:plicit ranges. 

d. Floating point types. 

e. Fixed point types. 

f. Enumeration type Boolean. 

g. Enumeration type Character. 

VI. SPECIAL RESOURCES: 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On-Line Training and Reference Module", 
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VZI . PHESBiraATZON 

A. Xntzroduction 

1. Have students look at package STANDARD noting 
the various types which have been predefined 
by this package, and the operations which have 
been predefined for these included types . 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Predefined Discrete 
Types 



2. Predefined Real 
Types 



1. Predefined Subtypes 

4. Unconstrained Array 
Type 

5. Fixed Type 

6. Explicit Typing 



la. Integer, Character, 

Boolean, 
lb. Integer - positive or 

negative whole #, machine 

implementation dependent. 
Ic. Boolean - enumeration type 

which can have two values: 

True or False. 
Id. Character - A single alpha, 

digit, or other special 

symbol (the ASCII set) . 

Enclosea by apostrophes 

( ' '). 

2a. Float -approximation of a 
real number with a declared 
degree of decimal digits. 

2b. Fixed - explicitly defined 
error bound or delta, 
used where accuracy is 
important . 

3a. Natural - (0..'Last). 
3b. Positive - (L.'Last). 

4a. String - an unconstrained 
array of characters. 
Enclosed in quotes . ( " " ) . 

5a. Duration. 

6a. Definition - make a certain 

type have more constraints 

than normal. 
6b. Show why to use (accuracy, 

limits erroneous input, 

etc) . 

6c. Integer - range options. 
Float - digits & range 
options . 

Fixed - delta & range 
options . 
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lABORATORY EXPERIMENT 



LAB II. H 



I. BLOCKS II "Fundamentals of Ada Programming" ; 

.III. lABUmiBSRs 11 ; ^ 

IV. JM TlTVEts, "Scalar Types V .^;C,vxf^ ^\'a\,.,v^' 



V. STODENT OBOECTIVESs At the completion of this experi- 
ment, the student should be able tos 

1. Write a procedure which declares and uses scalar 
type objects, and provides explicit type 
conversion. 

VI. REQUIRED MATERIALS S 

1. Note taking materials. 

2. AETECH "JnfcegrAda" with "On-Line Training and 
Reference Module". 

3. Student Data Disk. 
VII. PROCEDURE 

1. Write a procedure which declares two objects. 
Objectl is of type Integer, and Object2 is of type 
Float. Provide Object2 with an initial value of 
20.0. Prompt the user to enter an integer from 0 
to 20 and calculate the percentage of the user 
input number to Object2 by: 

Percentage = (0bjectl/0bject2) * 100 

Print to the screen the value of percentage. 

Save your program as LABI I.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program and executable 
code to be turned in to your Instructor. 

4. Power down computer, and clean up area. 



77- 



— * Scalar Types * — ; 



Author's Name s TEACHER GUIDE ; 

Assignment Number s LAB # II. H ? 



.« Program Executive 

Below is a solution for Lab # II.H. This solution may 
be used by the instructor as a guide for helping 
students complete the laboratory assignment. 



with TEXT_IO; use TEXT_IO; 

procedure Scalars is 

Objectl : INTEGER; 

Object 2 s constant FLOAT :« 20.0; 

Percentage s FLOAT; 

package FloatIO is new FLOAT_IO( FLOAT ); 
package Integer 10 is new INTEGER_IO( INTEGER ); 

begin 

put( "Please enter an integer value in the range 0 to 

20: " ); 
IntegerlO.getj Objectl ); 
NEW_LINE ; NEW_LINE ; 

Percentage 8= { FLOAT( Objectl ) / Object2 ) * 100.0; 
put( "Your input value is " ); 
FloatIO. put ( Percentage, Aft ~> 2, Exp => 0 ) ; 
put( " percent of "); 

FloatIO. put( Object2, Aft => 2, Exp => 0 ) ; 
put_line( ); 
end Scalars; 
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INFORMilTIOK LESSON PIAN 



ILP II. I 



; X. BUXaCf II - "Ftindamentals of Ada prbgrramming" 
III V jUBSSON TITOBt "Enmneration Types* 



IV. LESSON OBJECTIVES s At the completion of this lesson, 
the student should be able to: 

1. Define eniimeration type. 

2. Describe the ordering of enumeration types. 

3. Declare enumerated types. 

4. Use enumerated types. 
V. LEARNING ACTIVITIES s 

1. Take notes on lecture presented by Instmictor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block III 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module" * 

Read & take notes on the following sections: 

Block III, Lesson 2, Topics 6 

a. User defined enumerated types. 

VI. SPECIAL RESOURCES: 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On^Line Training and Reference Module''' . 

Skansholm, Ada From the Seainnino , Addison- Wesley, 
1988, pp. 172-173. 

VII. PRESENTATION 

A. Introduction 

1. Show students how much easier it is to 

describe certain things using words instead of 
numbers (like the days of the week). 
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B. Instructional Topics and Key Points 



TOPIC 



1. Enumeration Types 



2. I/O of Enumerated 
Objects 



KEY POINT 



la. Definition ~ allows for the 
meaningful description of 
real world entities. 

lb. Must follow rules for 
identifiers, may not be 
strings or numbers. 

Ic. Vee of enumerated types 

allcw for better readability 
and understandability. 

Id. Ranges for ©numerated t^'pes 
are declared, and a host of 
attributes are supported. 

2a. Must provide instantiation 
of generic package 
Enumerated_XO for I/O of 
enumerated~types, using the 
particular enumerated type 
as the actual parameter. 



ERIC 
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lABORATORY EXPERIMENT 



LAB II. Z 



X . MiiOCKs li - •♦Pundaroentals of Ada Pjrpgraimning'' 

:I1I IfiB ^WIMBERs ■ ■ • • ' , •; 

; ]:.IV»>:^IiftB ■:y3KgjEsf;-' :!*Enuineratioh ■ Types *' ' •"•v:^:':'';^^':; •■ 



V. STDDENT OBJECTIVES; At the completion of this 
experiment, the student should be able tos 

1. Write a procedure which instantiates the package 
Enumeration__IO, and provides output for a user 
declared enumerated type. 

VI. X2EQUIRED MATERIALS: 

1. Note taking materials. 

2. AETECH "Jntegrflda" with "On-Line Training and 
Reference Module". 

3. Student Data Disk. 
VII. PROCEDORE 

1. Write a procedure which simulates a traffic light. 
Use the following declaration: 

type StopLightType is (Red, Yellow, Green); 

Start the light at green. Delay 5 seconds. Turn 
?7®t.^^^^ yellow. Delay 3 seconds. Turn the 
light to red. Delay five seconds. Turn the light 
back to green. Save your lab as LAB12.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

4. Power down computer, and clean up area. 



ERIC 



-81- 



— * Enmseration Types . 

— Author's Name s TEACHER GDIDE ? 

— Assignment Number : lAB # II. I ; 



. Program Executive — -™ 

— Below is a solution for Lab # II. I, This solution may be 

— used by the instinictor as a guide for helping students 
— • complete the laboratory assignment. 

with TEXT_IO; use TEXT_IO; 

procediure StopJ[iight is 

type StopLightType is ( Red, Yellow, Green )? 

Signal s StopLightType; 

Message : STRING (1..22) := "The Traffic Light is: 

package LightIO is new ENUMERATION 10 { StopLightTvoe 
use LightIO; ~ j*- / ' 

begin 

put_line( "Hit <CTRL/C> to terminate Traffic Light." ); 
loop ' 

Signal s» Green; 
put( Message ); 
put( Signal ); 
NEW_LINE; 
delay ( 5.0 ); 
Signal s« Yellow; 
put( Message ); 
put( Signal ); 
NEWSLINE; 
delay ( 3.0 ); 
Signal j» Red; 
put( Message ); 
put( Signal ); 
NEW LINE; 
delay ( 5.0 ); 
end loop; 
end Stop Light; 
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INFORMATION LESSON PIAN 

I. BU)CKs II - *• Fundamentals o£ Ada Programming " 
II. UNITS J 
III. LESSON TITLES "Derived Types" 



IV. I^SSON OBJECTIVES s At the completion of this lesson, 
the student should be able tos 

1. Define derived type. 

2. Identify the syntax associated with a derived 
type. 

3. Identify the rules applicable for derived types. 

4. Perform conversions between derived types and 
base types. ' 

V. LEARNING ACTIVITIES s 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture. 

3. CAI Assignment - Block III 

AETECH "Ada Training Environment" or "JntegrAda" 
with "On~Line Trainxng and Reference Module", 

Read & take notes on the following sections* 

Block III, Lesson 5, Topics 1, 2. 

a. Creating derived types. 

b. Type conversion. 

VI. SPECIAL RESOURCES: 

^I^^^J'-^^^ Environment" and "IntegrAda" 

with "On-Lxne Training and Reference Module", 

VII. PRESENTATION 

A . I nt roduc t ion 

1. Introduce a football field using integer type 
to describe the yard markers. Discuss that a 
yard marker of 51 yards might be legal, but 
wouldn't make any sense. 
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B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Derived Type 



2. Type Conversion 



la. Definition - brand new t3rpe 
formed from a previously 
declared type. 

lb. Done with keyword "new**. 

Ic. Kay have all operations of 
base type. 

2a. Derived type may be able to 
be converted back to its base 
type if mixing of types is 
required. This will allow 
comparisons and operations to 
be performed on the converted 
type. 

2b. Syntax uses parenthesis 

around old type, and new type 
proceeding it. Must be 
stored in object of new type, 
(i.e. in an assignment 
statement) . 

New__TypejOb ject : = 
mevJType ( 01d^Type__0b j ect ) ; 
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lABORATORY EXPERIMENT 



LAB II. J 



■■;5£;;\I:;;/'bl^ 


F^ndaanentals o£ Ada jProgr 





























V. STUDENT OBJECTIVES: At the completion of this 
experiment, the student should be able tos 

1. Write a procedure which declares and uses derived 
types. 

VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. AETECH "IntegrAda" with "On-line Training and 
Reference Module". 

3. Student Data Disk. 
VII. PROCEDURE 

1. Given the following type declarations j 

type SpeedLimitType is range 0..65y 

tyge DistanceType is digits(2) range 

|where 520.0 represents the maximum distance 
that a person may travel at the maximum speed 
limit in an 8 hour day) 

type HourType is range 0 . . 8 ; 

Write a procedure which prompts the user to enter 
an expected averaoe speed and the number of hours 
®3cpected to be driven during a trip. The program 
should calculate and output to the screen the 
distance that the user could expect to travel. 
Save the program as LAB13.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

4. Power down computer, and clean up area. 
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— * Derived TVpes *— • 

Author's Name s TBACHER 6DZDB ; 

Assignment Number s hkB # XX. J ; 



— Program Executive — 

— Below is a solution for Lab # XI. J. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 

with TEXT_IO; use TEXT_XO; 
procedure Calc_Distance is 

type SpeedLimitType is range 0..65; 

type DistanceType is digits ( 2 ) range 0.00. .520.00; 

type HourType is range 0 . . 8 ; 

Avg Speed s SpeedLimitType; 
Num Hours s HourType; 
Distance s DistanceType; 

package DistancelO is new FL0AT_10( DistanceType ) ; 
package Hour 10 is new XNTEGER_IO( HourType ); 
package SpeedIO is new INTEGER_IO( SpeedLimitType ) ; 
begin 

put( "Please enter your expected average speed: " ); 
SpeedIO. get ( Avg Speed ); 
NEW LINE; NEW EiNE; 

put( "Please en¥er your expected number of hours 

driving: ) ; 
Hour 10. get ( Num Hours ); 
NEWSLINE; NEWSLINE; NEW_LINB; 

Distance t- DistanceType ( Avg Speed ) * DistanceType ( 
Nian_Hours ) ; — \ 

put( "You can expect to travel " ); 

DistancelO. put ( Distance, Aft => 2, Exp 0 )t 
put( « miles." ); ' 
NEW_LINE; NEWSLINE; 

end CALC_DISTANCE; 



ERIC 
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ILP II. K 



INFORMATION I.BSSON PI»AW 



I w BliOCKs II - ^Fundamentals of Ada^r'Pxogxamming'^^r:^^ 
.II. 'tlNI^s. '': .K 



III. LESSON TITLES "Subtypes- 




IV. LESSON OBJECTIVES s At the completion of this lesson, 
the student should be able to: 

1. Define a subtype, and compare and contrast 
subtypes to derived types. 

2. Discuss range constraints and accuracy 
constraints of subtypes. 

3. Declare subtypes, and -objects of type subtype. 



V. LEARNINS ACTIVITIES; 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block III 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on the following sections: 

Block III, Lesson 5, Topics 3-6. 

a . Subtypes . 

b. Range constraints. 

c. Accuracy constraints. 

d. Index changes. 

VI. SPECIAL RESODRCESs 

AETECH "Ada Trainina Environment" and "IntegrAda" 
with "On-Line Training and Reference Module". 

Skansholm, Ada from the Beginning . Addison-Wesley, 
1988, pg. 105* 
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VII. PRESEmaXION 

A. Introduction 



1. Discuss altitude for a plane, and identify how 
the set of integers (negative integers) 
wouldn't apply to altitude unless plane had 
crashed. Review Natural and Positive and show 
how these are subtypes of Integer. 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Subtypes 



2. Predefined Subtypes 



la. Definition - a possible 

smaller range ox a declared 
type. 

lb. May be mixed with base type, 
thus saving memory and 
allowing for faster 
execution. 

Ic. Can place additional range 
constraints on base type. 

Id. Does not increase acciuracy. 

le. Useful for unconstrained 
arrays . 

2 a . Natural ( 0 . . Integer ' Last ) . 
2b. Positive (1. .Integer 'Last) . 
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Ijy30RAa?0RY EXPERIMENT 





^Fundamentals of Ada Prograiraning" 















V. STUDENT OBJECTIVES s At the Completion of this 
experiment, the student should be able tos 

J. 

1. Create and use a simple procedure in which 
subtypes are declared. 

VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. AETECH "IntegxAda" witn "On-Line Training and 
Reference Module". 

3. Student Data Disk. 
VII. PROCEDURE 

1. Write a procedure which declares the following 
subtypes and objects s 

Subtype Letter__Grade_Type is Character range 
'A' . . 'E' f 

Subtype Passing_Grade Type is Letter Grade Type 
range 'A'..'D'; ~ — 

Subtype Num__Grade_Type is Integer range 0..100; 
Input_Grade s Num_Grade Type ; 
Letter_Grade s Letter_Grade_Type ; 

Have the procedure first prompt the user for a 
numeric grade from 0 through 100. When entered, 
the number is evaluated and the appropriate letter 
grade is assigned to the object Letter Grade 
according to the following scale: 

90 - 100 - A 
80 - 89 - B 
70 - 79 - C 
60 - 69 - D 
less than 60 - E 
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VII. PROCEDURE 
(continued) 

Have the procedure output the entered number along 
with the appropriate letter grade. 
Follow the example below: 

Enter a Number (0 - 100): 87 

Entered Number =87 
Letter Grade B 

Save this program as IiAB14.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

4. Power down computer, and clean up area. 
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— * Subtypes * — 



Author's Name s TEACHER GUIDE ; 

Assignment Ntunber : LAB # ZI.K ; 



— — — ™ Program Executive 

— Below is a solution for Lab # U.K. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 

with TEXT__IO; use TEXT_IO; 
procedure CALC_GRADE is 

subtype Letter^GradeJPype is CHARACTER range 'A'..'E'; 
subtype Passing_Grade_a^e is Letter_Grade_Type range 

subtype Num_Grade_Type is INTEGER range 0..100; 

Input__Grade t Num__Grade_Type; 
Letter_Grade s Letter_6raae_Typef 

package GradelO is new INTE6ER_I0( Num__Grade_Type ); 
use GradelO; 

begin 

put( "Please enter a numeric grade (between 0 and 
100) s ")j 

get ( Input Grade ) ; 

NEWSLINE; "NEWJLINE; NEWSLINE; 

if ( Input Grade < 60 ) then 

Letter JErade s= 'E'; 
elsif ( Input Grade < 70 ) then 

Letter^GraHe t- 'D'; 
elsif ( Input Grade < 80 ) then 

Letter__6raHe «=» 'Cj 
elsif ( Input Grade < SO ) then 

Letter_Gra?e 8= 'B'; 
else 

Letter__Grade 'A'; 
end if J 

put { " Entered Number = " ) ? 
put( Input Grade, Width => 1 ) j 
NEW LINE; ~ 

putT" Letter Grade = " ); 
put ( Letter Grade ) ; 
NEW LINE; ~ 
end CAUC GRADE; 
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INFORMATION LESSON PLAN 



ILP II -L 



^ I, BLOCKS II - «?Ptindainentals of Ada Programming 
il. ONITs L 

III. LESSON TITLE; "Subprograms " 



IV. LESSON OBJECTIVES: At the completion of this lesson, 
the student should be able to: 

1. Identify the two types of subprogram structures. 

2. Identify proper techniques for naming 
subprograms. 

3. Compare and contrast functions and procedures. 

4. Identify the modes of subprogram parameters. 

5. Write simple procedures and functions. 

6. Call procedures and functions. 

7. Define formal and actual parameters. 

8. Assign objects to fomal and actual parameters. 

9. Understand the use of local variables. 



V. LEARNING ACTIVITIES s 

1. Take notes on lecture presented by Instructor, 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block IV 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-line Training and Reference Module", 

Read & take notes on the following sections: 

Block IV, Lesson 2, Topics 1-10. 

a. Description. 

b. Definiii'^ subprograms, 

c. Invoking subprograms. 

d . Parameters . 

e. Formal and actual parameters. 

f . Specifications . 
. Matching parameters, 
. Notational assignment. 

i . Bodies . 

j . Summary. 
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VI. SPECIMi RESOURCES: 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On^Line Training and Reference Module", 

Skansholin. Ada f rom nhe Beoinnina . Addison-Wesley, 
1988 1 Ch» Bf pp. 215-'276. 

VII. PRESENTATION 

A. Introduction 

1. Discuss modularity and how programs should be 
designed using a top-down approach (written 
into the smallest programming units) , then 
introduce subprograms. 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Subprogram Structure 



2. Parameter Modes 



3. Parameter Types 



4. Syntax 



la. Two types; functions and 

procedures . 
lb. Functions must return a value 

frocedures don't have to. 
oth can have parameters: 
functions only of mode "in". 
Id. Both aid modularity 
le. Both must be declared. 
If. Both have bodies. 

2a. Three types; in, out, in out 

in - comes into sub from 
caller. Value cannot be 
changed (value is the same 
after the call) . 
out - sub creates some value 
(no value when it comes in, 
or garbage value) , and 
returns /alue to where it was 
called. 

In out - items are passed 
into a subprogram. Items can 
be modifies by subprogram, 
and items are then passed 
back to 
caller. 

3a. Two types: formal and actual 
formal - ones in 
specifications . 
actual - ones in call, 

3b. Actual values are assigned to 
formal values when they are 
passed into sub. The sub, 
when completed, passes the 
formal parameters back out 
where they assume their 
actual names. 

4a. Both may have parameter 

specification. 
4b. Both have begin and end. 
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LAB II. L 



lABORATORY EXPERIMEMT 



1. BI1OCK8 II - "Fundamentals of Ada Programming' 
II. UNITS L 
III. LAB NUMBER: 15 



IV. IJUa TITLES I "Siibproorams" 



V. STUDENT OBJECTIVES s At the completion of this 
experiment, the student should be able to: 

1. Write a simple function. 

2. Write a simple procedure. 
Vf. REQUIRED MATERIALS: 

1. Note taking materials. 

2. AETECH "IntegrAda" with "Qn-Line Training and 
Reference Module", 

3. Student Data Disk. 
VII. PROCEDURE 

1. Write a function subprogram resource which 
calculates the factorial of an integer value. 
Example : 41 = 24. 

Use the following structures 
: i t 

begin 

if value = 1 then 
return 1 ; 

else 

return Value * Factorial (Value - 1); 
end if; 
end Factorial; 

Note: This is called a recursive function. 
Save this as LAB 15 A. ADA. 



2. Compile this subprogram. 
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vzi. mocsDms 

(Continued) 

3. Write a procedure subprogram resource which 
calculates the area of a rectangle, given the 
height, and width as integers. 

Save this as LAB15B.ADA. 

4. Print out a copy cf both LAB15A.ADA and LABISB.ADA 
source code to turn in to your Instructor. 

5. Power down computer and clean up area. 
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— * Subprograsis ♦ — ; 

— Author's Name : TEACHER GUIDE ; 

— Assignment Number j LAB # II. L ; 

Program Executive — — 

— BeXow is a solution for Lab # ILL. This solution may 

— be used by/ the instructor as a guide for helping 

— students complete the laboratory assignment. 



function Factorial ( Value: INTEGER ) return INTEGER is 
begin 

if ( Value = 1 ) then 

return 1; 
else 

return Value ♦ Factorial ( Value - 1 1: 
end if; ' 
end Factorial; 



procedure Calc_Area ( Height, Width : in INTEGER; 

Area sout INTEGER ) is 

begin 

Area i= width * Height; 
end Calc__Area; 
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INFORMATION LESSON PIAN 



ILP II. M 



I • BLOCK: II - "Fundamentals of Ada ProgrammiTig" 
11. TOUTS M 
III. LESSON TITLES "Packages'* 



IV. I^SSON OBJECTIVESs At the completion of this lesson, 
the student should be able to: 

1. Define package. 

2. List and describe the two compilation units that 
make up a package. 

3. Identify the two parts of a packaqe 
specification. 

4. Identify the two parts of a package body, 

5. Define elaboration. 

6. List the three logical ways to group programmina 
resources into packages. ^ ir ^ 

V. LEARNING ACTIVITIES s 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture. 

3. CAI Assignment - Block IV 

AETECH "Ada Training Environment" or "JntegrAda" 
with "On-Line Training and Reference Module". 

Read & take notes on the following sections: 

Block IV, Lesson 1, Topics 1-10. 

a. Description. 

b. Example of a package. 

c. Package specification. 

d. Package body. 

e. Package body (Cont.). 

f . Package designs. 

g. Object oriented designs. 

h. Shared data packages. 

i. Abstract state machines, 
j . Summary. 




VI. SPECIAL HBSOimCESs 

AETECH "Ada Training Environment" and "IntegrAda" 
with *'On~Line Training and Reference Module'*. 

Skansholm, Ada from the Beginning. Addison-Wesley, 
1988, Ch. 8, pp. 341-376^ ^' 

VI X. PRESENTATION 

A. Introduction 

I. Discuss that we have thus far used only the 
resources contained in existing packages, and 
that we can actually write our own packages. 

B. Instructional Topics and Key Points 



TOPIC 



1. Packages 



2. Package Specification 



3. Package Body 



3. Package Body 
{continued} 



KEY POINT 



la. 



lb. 



2a. 



Definition - group of 
logically related software 
entities . 

Two parts; specification and 
body. 

Specification - tells what 
the package does 
Body - implements the 
functions that the 
specification describes. 

Could be divided into two 
parts; 

Visible - part which user can 
freely use. 

Hidden - {done via private or 
limited private types) no 
immediate access for 
user; done so that user 
cannot alter certain package 
items {restricts access). 



3a. 



May have a declarative 
section prior to executable 
code. 

3b. Contains code that makes 
package perform as the 
specification describes . 

3c. If specification has 

procedure or function then 
those subprogram bodies 
appear here. 

3d. May be compiled separately 
from package specification. 
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B. Instructional Topics and Key Points 


TOPIC 


M&X JTV/XmA 


4. Elaboration 


4a. Done via the elaboration of a 
"with" clause. Makes package 
visible and the resources In 
the package usable. 


5. Package Designs 


5a. Three ways to group program 
elements together Into a 
package; 

Obiect Oriented Desiqn - 
groups objects together. 
Shared Data - qrowps data 
structures together (sorting 
etc) Hay have generics. 
Abstract State Machines - 
contains specification which 
tells o£ certain conditions 
and elements within package, 
(on, o£f, etc) 
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ZABORATORY EXPERIMENT 



LAB II. M 



I. 


BXiOCKs IZ •> 


♦'Fundamentals Of Ada Programming" 




. .-ii.-. 


UNITS M 






111. 


XAB JNDMBER: 


16 




iv. 


lAB TITLES 


"Creatine Simple Packaaes** 













V. STUDENT OBJECTIVESs At the completion of this 
experiment, the student should be able to: 

1. Create a simple package consisting of a procedure 
and function. 

VI. REQUIRED MATERIALS s 

1. Note taking materials. 

2. AETECH "JjifcegrAda" with "On-Line Training and 
Reference Module", 

3. Student Data Disk. 
VII. PROCEDURE 

1. Using the two subprograms created in Lab 15 
(LAB15A.ADA and LAB15B.ADA) incorporate these 
subprograms into a package called MATHPKG.ADA. 
Compile this package, and print out a copy of your 
source code to turn in to your Instructor". 

2. Write a simple procedure to "drive" your math 
package. The procedure should prompt the user to 
enter an mteaer, and then calculate the factorial 
of the input integer. In addition, the procedure 

"ser to enter a height, and 
width for a rectangle, and then calculate the area 
ot the rectangle. Save this program as Labl6.ada. 

3. Compile, debug, bind, and execute LablS.ada, 

4. Print out a copy of your package and driver, and a 
copy of your executable output to turn in to your 
Instructor. 

5. Power down computer, and clean up area. 



-100- 



— * Packages *— 

Author's Name : TEACHER GUIDE ; 

Assignment Number $ LAB # II .M ; 



Program Executive 

— Below is a solution for Lab # II. M. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 

package Hatk_Functions is 

function Factorial ( Value 5 INTEGER ) return INTEGER; 
procedure Calc_Area ( Height, Width : in INTEGER; 

Area : out INTEGER ); 

end Math_Functions ; 

package body Math_Functions is 

function Factorial ( Value: INTEGER ) return INTEGER 

is 

begin 

if ( Value = 1 ) then 

return 1; 
else 

return Value * Factoripl^ Value - 1 ); 
end if; 
end Factorial; 
procedure Calc_Area ( Height, Width s in INTEGER; 

Areas out INTEGER ) is 

begin 

Area j= width * Height; 
end Calc_Area; 
end Math_Functions ; 
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— * Driver for Package Math Functions * — 
._*********************«*«**«««««««««««^«^^^^^^ 

with TEXT_IO, Math_Punctions ; 
use TEXT_IO, Math_Functionsj 

procedure Test_Punctions is 

Height, Wide, Area : INTEGER; 
Num, Result s INTEGER; 

package IntegerlO is new INTE6ER_I0( INTEGER ) ; 
use IntegerlO; 

begin 

put_line( '♦This program tests the Math Functions 
package." ); ~ 
put_line( "First, the Factorial of a given integer 
will be calculated." ); 

put( '•Please enter the desired integer value: "1; 

get( Num ); 

NEWSLINE; NEW LINE; 

Result := Factorial ( Num ); 

put( "The Factorial of - ); 

put( Num, Width => 1 ); 

put{ " is •* ); 

put{ Result, Width => 1 ) ; 

NEWSLINE; NEWSLINE; NEW_LINE; 

put_line( "Now, the Area of a given rectangle will be 
calculated." ); 

put{ "Please enter the Width of a rectangles " 1; 
get( Wide ); ^ 
NEWSLINE; 

putj "Please enter the Height of a rectangle: " )t 
get{ Height ); ^ 
NEWSLINE; NEW LINE; 
Calc__Area( Height, wide. Area ); 
put( "The Area of the given rectangle is: " ); 
put( Area, Width => 1 ) ; 
put_line( " Square Feet."); 
NEW_LINE; 
end Test_Functions ; 
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INFORMATION LESSON PIAN 



IliP II. N 



n TlTUEz "Declaring Subproorams and Creating 

'v:;^^ Packages" ■■yv: -:.J,:;V;:^:-^'::':v'^i;:.--.'C::;y^.yV^^ 



IV. LESSON OBJECTIVESs At the completion of this lesson, 
the student should be able to: 

1. Create a simple subprogram. 

2. Understand how to compile a subprogram and have a 
main procedure import it. 

3. Identify the two parts of a package. 

4. Create a simple package. 
V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor, 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block II 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module". 

Read & take notes on the following sections: 

Block II, Lesson 1, Topics 7-9 

a. Declaring subprograms. 

b. Creating packages. 

c . Summary . 

VI. SPECIAL RESOURCES: 

AETECK "Ada Training Environment" and "IntegrAda" 
with "On-Line Training and Reference Module". 
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VZI. PRESENTATION 

A. Introduction 

1. Tell students that a large program (such as 
the one that controls the space shuttle) is 
coded by many programmers; therefore each 
p3:ogrammer only programs a small block o£ 
code, and these small blocks (mostly 
subprograms) are put together to form the 
program. This is why we use specifications 
(which link the various blocks together) . 



B. Instructional Topics and Key Points 



TOPIC 

1 . Subprogram Xa . 



lb. 



Ic. 



2. Package 2a. 

2b. 



3. Declaring Subprogram 3a. 



KEY POINT 



Definition - One small part 
of an entire system* 
Consists of functions and 
procedures . 

Two parts to a subprogram: 

a. Specification - interface. 

b. Body - actual 

implementation . 

Main Procedure - special form 
of procedure, runs on the 
operating system, and is said 
to "drive" system. 

Definition - a group of 
logically related entities. 

Consist of two parts: 

a. Specification - interface. 

b. Body - actual 

implementation . 



Show how an internal 
subprogram is declared in 
a simple procedure. 
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I^ftBORATORY EXPERIMENT 



II. N 



.■ II., ■ UNITS ' N ! "^'J .-.V 



V. STUDENT OBJECTIVES s At the completion of this 
experiment, the student should be able to: 

1. Create and use a package of mathematical 
subprogram resources. 

VI. REQUIRED MATERIM.S8 

1. Note taking materials. 

2. AETECH "IntegrAda" with "On-Line Training and 
Reference Module", 

3. Student Data Disk. 
VII. PROCEDURE 

1. Add to your math package created in Laboratory 16, 
which contains a procedure resource to calculate 
the area of a triangle, and a function resource to 
calculate square roots. Develop a package driver 
program which prompts the user to enter 3 integer 
values which are assigned as the sides of the 
triangle. If the entered sides are valid sides of 
a triangle, then return the area of the triangle; 
otherwise return a message and allow for reentry 
of valid sides. Valid sides are when the stim of 
any two sides are greater then the third. Area is 
computed with the formula t 



Area = y/s[s-a) {s-Jt^) {s -O 

where 

s = (a+b+c)/2 

Note: You will have to convert the input sides to 
floating point numbers, and develop and use 
a Square Root function from this math 
library package. 
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VZI. PROCEDimE 
(Continued) 

1. To decide whether input sides are legitimate sides 
of a triangle, please use the following logics 

if sl-i-s2>83 and s2+s3>sl and sl't-s3>s2 then 
—find area; 
else 

put_line (-Invalid Sides")? 
end if; 

2. Compile and debug your math package, saving it 
again as HATHPK6.ADA. 

3. Compile, debug, bind, and execute your driver 
program, saving it as LAB17.ADA. 

4. Print out copies of package and driver, and 
executable code to turn in to your Instructor. 

5. Power down computer, and clean up area. 
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Declaring Subprograms and Creating Packages 



— Author's Name s TEACHER GUIDE ; 

— Assigxunent Number : LAB # II. N ; 

Program Executive 

— Below is a solution for Lab # II. N. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 

package MathPkg is ™™ • 

function Factorial ( Value a INTEGER ) return INTEGER; 

procedure Calc Rec Area ( Height, width : in INTEGER: 
Area s out INTEGEl )?"* 

function Sqrt ( Num : FLOAT ) return FLOAT; 

procedure Calc_Tri_Area ( Sidel, Side2, Side3 s in 

. „ INTEGER; Area : out FLOAT ) ; 

end MathPkg; " 

package body MathPkg is 

function Factorial { Value: INTEGER ) return INTEGER is 
begin 

if ( Value = 1 ) then 

return 1; 
else 

return Value * Factorials Value - 1 ); 
end if; ^ " 

end Factorial; 

procedure Calc_Rec Area ( Height, Width i in INTEGER; 
^ , Area j out INTEGER ) is 

begin 

Area t- Width * Height; 
end Calc_Rec_Area; 

Approximate square root, using Newton's method: 
If you have a package which provides for a SQRT 
Function, you may wish to use that, in lieu of 
this solution. 

function Sqrt( Num s FLOAT ) return FLOAT is 
Root : Float := Num / 2.0; 

begin 

while { abs{ Num - Root ** 2 ) > 2.0 * Num * 
Float 'Epsilon ) loop 

Root j= ( Root + Num / Root ) / 2.0; 
end loop; ' 
return Root; 
end Sqrt; 
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procedure Calc_Tri Area ( Sidel, Side2, Side3 s in 

INTEGER; 

Area : out FLOAT ) is 
Sum, Temp^Area, A, B, C j FLOAT; 
begin 

A s= FLOAT ( Sidel ); 
B != FLOAT ( Side2 ); 
C 8= FLOAT ( Side3 ); 
Sura := ( A + B + C ) / 2.0; 

TempJVrea s= Suiq * ( Sum - A ) * ( Sum - B ) * 

( Sum - C ); 
Area 5 = Sqirt ( Temp_Area ) ; 
end Calc_Tri__Area; 

end HathPkg; 
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^^** ********* itit* I,* ****** *ic4t4i**if*1tit*1t'kir1iifit1t**ii-k^^^ 

— * Driver for MathPkg ; 

****************************iHH,iHH(*1f4t******* J 

With TEXT 10, MathPkg? 
use TEXT_IO, MathPkg | 

procedure Triangles is 

Sidel, Side2, Side3 s INTEGER; 
Area s FLOAT? 
Valid : Boolean; 

package Integer 10 is new INTEGER_IO{ INTEGER ); 
use Integer ID; 

package PloatIO is new PLQAT_IO( FLOAT ); 
use FloatIO; 

begin 

put_line( "This program will calculate the area of 
given triangle. " ) ; 

put_line( »Please enter INTEGER values when lengths 
are regiuested. " ); 
Valid $= FALSE; 
while ( not Valid ) loop 
NEW_LINE; 

put( "Please enter length of side ones 

get( Sidel ); 

NEWSLINE; 

putj "Please enter length of side twos 

get( Side2 ); 

NEW__LINE; 

put( "Please enter length of side three: ")t 
get( Sides ); ' 
NEWSLINE ; NEWSLINE ; 

if ( Sidel + Side2 > Side3 ) and ( Side2 + Side3 
Sidel ) 

and ( Sidel + Side3 > Side2 ) then 
Valid :» TRUE; 

Calc_Tri_Area( Sidel, Side2, Side3, Area ) 
else ' 

put__line( "Invalid Sides! Try Again..." ); 
end if ; 
end loop; 

put{ "The Area of the given Triangle is: " ); 
put( Area, Aft => 2, Exp «> 0 ) ; 
put_line( " Square Feet." ); 
NEWSLINE; 
end Triangles; 
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IKPORMATION LESSON PLAN 



ILP II. 0 



I . BLOCKS II - "Fundamentals of Hda "Pxogteaming*' 
II, UNIT: O 
III. LBSSQM TITLB: "Ada Language Syntax " 



IV. LESSON OBJECTIVESs At the completion of this lesson, 
the student should be able to: 

1. Identify what limitations upper and lower case 
letters have on Ada syntax. 

2. Define identifiers and discuss their limitations. 

3. Define and identify numeric literals. 

4. Define and identify character literals. 

5. Define and identify string literals. 

6. Define and identify the following delimiters: 
(from the Ada Language Reference Manual, 
section 2.2) 

J « ' ()•'=>.. :« 

7. Define reseirved word and identify their 
limitations . 

8. Define program documentation, and discuss its 
importance for good programming practice. 

V. LEARNING ACTIVITIES? 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block II 

AETECH "Ada Traininq Environment" or "IntegrAda" 
with "On-Line Training and Reference Module". 

Read & take notes on the following sections: 

Block II, Lesson 2, Topics 1-10 

a. Character Set. 

b. Lexical Units. 

c . Identifiers . 

d. Numeric Literals. 

e. Character Literals. 

f. Strings 

g. Simple Declarations. 

h. Compound Delimiters. 

i. Reserved Words, 
j. Comments. 
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VI. SPECIAL RESOURCES: 

AETECH "Ada Traininq Environment" and "IntegrAda" 
with "On-Line Training and Reference Module". 

Skansholm, Ada From The Beginning, Addison-Wesley, 
1988 . 

VII. PRESENTATION 

A. Introduction 

1. Discuss how our English symbols make our 
language understandable to us. 

B. Instructional Topics and Key Points 



TOPIC 



1. Syntax for upper 
and lower case 



2. Identifier 



3. Numeric literals 



4. Character Literal 



5. Strings 



KEY POINT 



la. Compiler will not distinguish 
between upper and lower case 
because Ada is a non-case 
sensitive language. 

lb. Conventional to put reserved 
words in lower case. 

2a. Can be used to name variable 
objects, data structures, 
program units, constants, 
essceptions, etc. 

2b. Start with letter followed by 
letters, numbers, or single 
embedded underscores. 

2c. Must fit on one line. 

3£i. Are #'s either exact or real. 
3b. Can use single embedded 

underscores without 

any effect (improves 

readability) . 

4a. Define ASCII. Also note 
package ASCII is inside 
package STANDARD. 

4b. Any ASCII character enclosed 
by apostrophes. 



5a. 



5b. 



Define Strings. 
(Unconstrained array of 
characters ) 

Identify string type and 
discuss the need to provide 
the string length at the time 
of object declaration. 
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B. Instructional Topics and Key Points 



TOPIC 


KEY POINT 


6* Delimiters 

7. Reserved Words 

8. Coioroents 


6a. Discuss the uses of the 
following delimiters s 
; end of line. 
i type declaration. 
, separates two objects in 

type declaration. 
' attributes . 
. field identifier. 
<=> is equal to* 
. . ranoe . 

assignment. 

7a. Define. 

7b. Give handout with all 

reserved words on them and 
review each reserved word 
discussed to date (get 
handout from Ada Language 
Reference Manual 2.9) 

8a. Discuss the importance of 

good programming 

documentation. 
8b. Discuss how to comment. 
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LABORATORY BXPERIMENT 



LAB IX. 0 



I. BLOCKS II - "Fundamentals of Ada Prograjuming" 

II. UNITS O 

III. LAB NUMBER: 18 

ly . LAB TITLES *'Ada Lanpuaqe Syntax s Using Comments" 



V. STUDENT OBJECTIVES 8 At the completion of this 
experiment, the student should be able tos 

1. Provide meaningful comments within 
Ada programs. 

VI. REQUIRED M^RIALSs 

1. Note taking materials. 

2. AETECH "JntegrAda" with "On^Line Training and 
Reference Module". 

3. Student Data Disk. 
VII. PROCEDURE 

1. Using the math package and driver created in 
Laboratory Experiment 17, edit both the package 
and the driver incorporating meaningful comments 
within each so that a user will be able to 
understand the operation of your package and 
driver. Save the package as MATHPKG.ADA and your 
driver as LAB18.ADA. 

2. Recompile, debug, bind, and execute the driver 

grior to recompiling the math package and see what 
appens . 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

4. Power down computer, and clean up area. 
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— * Ada Language Syntax s Using Comments 

— Author's Name : TEACHER GUIDE ; 

— Assignment Number j LAB # II.O ; 

— The quality and quantity of comments will of course vary 

— from student to student, but a reasonable collection 

— might include the following: 

— In the packages 

— In function Factorials 

— Mention that this is a recursive function. 

— Explain that Factorial ( X ) is X * X-1 * X-2 * 

— ... * 3 * 2 * 1. 

— In function Sqrts 

— Explain (or at least mention) the method used. 

— In procedure Calc_Tri_Areas 

— Explain the need to convert lengths to 

— floating point values. 

— Possibly point out the usage of package 

— function Sqrt. 

— In the driver program: 

— State that program calculates the area of a 

— triangle. 

— Explain the determination of a valid triangle. 

— State that user is repeatedly prompted for lengths 

— of sides until a valid triangle is obtained. 

— Point out the usage of package procedure ( 

— Calc_Tri_Area ) . 
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INFORMATION LESSON PLftM 



. units' P 

ixi, LES^ 



IV. LESSON OBJECTIVES: At the completion of this lesson, 
the student should be able to: 

1. Understand and develop a simple program using the 
if.. then control structure. 

2. Understand and develop a simple program using an 
if., then. .else control structure. 

3. Understand and develop a simple program using an 
if . .then. .elsif. .else control structure. 

V. LLARNIN6 ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block II 

AETECH "Ada Training Environment" or "JntegrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on the following sections: 

Block II, Lesson 3, Topics 1-3 

a. if.. then. 

b. if . .then. .else. 

c. if . .then. .elsif . .else. 

VI. SPECIAL RESOURCES: 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On-Line Training and Reference Module", 

??f»?^^°^%^^^ Beainnino r Addison-Wesley, 

1988, pp. 55-56. 



ERIC 



-115- 



123 



VII. PRESENTATION 

A. Intzroductlon 

I. Discuss why it is important for computers to 
be able to make choices or decisions based 
upon known conditions. 

B. Instructional Topics and Key Points 



TOPIC 


KEY POINT 


X. If. .then 

2. I£. .then. .else 

3. If. .then. .elsif . . 
• • gXso 


la. Used to determine whether an 
action will be taken. If the 
'if part of the stateanent is 
true, then execute that code, 
otherwise ignore it. 

lb. 3 Components of structure, 
a. if b. then c. end if 

Ic. No semicolon after then. 

Id. Indentation for easier 
reading. 

2a. used to make a choice between 
2 items. If the "if" part of 
statement is true then 
execute it, and ignore the 
■else" section; otherwise if 
the "if" part of the 
statement is false then 
ignore it, and execute the 
■else" section of the 
structure. 

2b. 4 Components of structures 
a. if b. then c. else 
d. end if 

2c. Else not followed by 
semicolon. 

3a. Used to make a choice between 
2 or more items. Provides 
for imlimited selection of 



action. A minimum of five 
components of the structure 
are required: 

a. If b.then 
c. else d. elsif e. endif 
3b. Identify elsif spelling. 

3c. Every elsif has a 
corresponding then. 
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LABORATORY EXPERIMENT 



LAB IX. PA 



I. BLOCKS II - ^'Fundamentals of Ada Programming*' 

n. mvss p 

III. lAB KOHBERs 19 

IV. LAB UlTJLSt ♦'The If.. Then Control Stnicture** 



V. STUDENT OBJECTIVES: 

1. The Student will learn how to use simple If.. Then 
control structures in Ada. 

VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. AETECH "JntegrAda" with "On-Line Training and 
Reference Module". 

3. Student data diskette. 
VII. PROCEDURE : 

1. Write a procedure to prompt the user to enter 2 
integers. If the 1st Integer entered is larger 
than the second integer entered outputs "The first 
number is larger than the second number" 

Save this program as LAB19.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program and output to 
turn in to your Instructor. 

4. Power down computer, and clean up area. 
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— ♦ The If... Then Control Structure *. 



Author's Name 
Assignment Number 



$ TEACHER GUIDE ; 
s LAB # II. PA ; 



— Program Executive 

— Below is a solution for Lab # II. PA. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 

with TEXT_IO? use TEXT_IO; 
procedure Larger is 

First, Second : INTEGER; 

package Integer 10 is new INTE^ER_IO( INTEGER ); 
use Integer 10; 

begin 

put( "Please enter an integer values " ); 

get( First ); 

NEWSLINE; 

put( "Now, please enter a second integer values " ); 

get( Second ); 

NEW_LINE; NEWSLINE; 

if ( First > Second ) then 

put( "The first number is larger than the second 
niunber." }; 

end if; 
end Larger; 
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LAB II. PB 



lABORATORY EXPERItlENT 



■ I. 


BXiOCK: II 


" Fundamentals of Ada Progxaraning'' 


IIV 


UNITS P 




ill. 


LAB NDHBERf 


■20 ' . '■ 


IV. 


LAB TITLES 


"The If.. Then . . Elsif . . Else Control 






Structure" \. > 



V. STUDENT OBJECTIVES s At the completion of this 
experiment, the student should be able tos 

1. Create and use an If . .Then. .Elsif . .Else 
Control Structure in Ada. 

VI. BEQUIRED MATERIALS s 

1. Note taking materials. 

2. AETECH "IntegrAda" with "On-line Training and 
Reference Module", 

3. Student Data Disk. 



VII. PROCEDURE 

1. Write a main procedure which prompts the user to 
input a character. The program outputs whether 
the character entered was an upper case letter, a 
lower case letter, or not a letter at all. 
Utilize an If . .Then. .Elsif . .Else Structure. Save 
the program as LAB2 O.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

4. Power down computer, and clean up area. 
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-* The !.£. .Then. .Elsi£. .Else Control Structure * — j 

********************** **4r***i|^********««**«* . 

— Author's Name : TEACHEH GUIDE ; 

— Assignment Number : LAB # II.PB ; 

— — — . Program Executive — 

— Below is a solution for Lab # II.PB. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 



with TEXT^IOj use TEXT_IOj 
procedure Check_Letter is 

Letter t CHARACTER; 
begin 

put( "Pick a character, any character... " ); 

get( Letter ); 

NEW LINE; NEW_LINE; 

if J Letter in 'A'..'Z' ) then 

put( "Chosen character is an uppercase letter." ); 
elsif ( Letter in 'a'..'2' ) then 

putj "Chosen character is a lowercase letter." ); 
else 

put( "Chosen character is not a letter at all." ); 
end if; 
end Check Jdetter; 
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INFORMATION LESSON PIAM 

I, BLOCKS II - "Fundamentals of Ada Programming" 
II. UNITS Q 

III, LESSCM TITLES "The Case Control Structure" 



IV. LESSON OBJECTIVES: At the completion of this lesson, 
the student should be able to: 

1. Identify the four required components of a case 
structure . 

2. Recognize that a case structure must have at 
least two alternatives. 

3. Understand when to use a case structure. 

4. Identify what types a case structure may be used 
with. 

5. Understand the purpose of a null statement. 

6. Write a program using the case structure. 
V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block II 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module". 

Read & take notes on the following sections: 

Block II, Lesson 3, Topics 4, 10 

a. Case statement. 

b. Null statement. 

VI. SPECIAL RESOURCES: 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On-Line Training and Reference Module". 

Volper, Katz, Introduction to ProoramminQ using Ada . 
Prentice-Hall , 1990, pp. 191-195. ^ 
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VII. PRESENTATION 

A. Introduction 

1. Compare a case structure with a multiple 
choice structure on a test. 

B. Instructional Topics and Key Points 



TOPIC 



1. Case Structure 



2. Null Statement 



KEY POINT 



la. Four required components 
to a case structures 
a. case b. is c. when 
d. end case 

lb. Used for multiple choice 

decisions related to a single 
variable. 

Ic. Can only be used with dis- 
crete types (types with a 
known number oz values) . For 
types other than discrete, a 
case structure may not be 
utilized. 

Id. All possible values for 
variable must be accounted 
for. 

le. Can accomplish Id. above by 
using the "when others" 
option . 

If. => means "if it is equal to". 

2a. To satisfy Id. above, 

sometimes it is necessary to 
use a null statement. 



2b. Hull statement means no 

action will be taken (as it 
relates to case structures) 
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liAB IZ.Q 

lABORATORT EXPERIMENT 



.1. 


BZiOCK: II « 


^'Fundamentals of Ada Programming" 


11. 


UNIT; Q 




Ill . 


LAB KUMBERs 


21 


IV. 


UVB TITLES 


"The Case Control Structure" 



V. STUDENT OBJECTIVES s At the completion of this 
experiment, the student should be able to: 

1. Create and use a case control structure. 

VI. REQUIRED MATERIALS s 

1. Note taking materials. 

2. AETECH "IntegrAda" with "On-Line Training and 
Reference Module". 

3. Student Data Disk. 
VII. PROCEDURE 

1. Write a program which prompts the user to input 5 
integers, and prints to screen after each number 
has been entered whether the number is odd or 
even. Assume only odd or even numbers between 1 
and 20 are evaluated. Use Notation. Output 
variations should use the following: "Odd 
Number"; "Even Number"; "Number Out of Range". 
Use a case control structure. Save your proaram 
as LAB21.ADA. *^ ' 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

4. Power down computer, and clean up area. 
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— * The Case Control Structure * — 

Author's Name s TEACHER GUIDE ; 

Assignment Number : LAB # II. Q ; 



—.-.«.-.-.-.,« Program Executive — 

— Below is a solution for Lab # II. Q. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 

with TEXT 10 J use ^XT 10; " 
procedure'^ry^Case is 

Numl, Num2, Num3, Num4, NumS : INTEGER; 

package Integer 10 is new INTEGER 10 ( INTEGER ); 
use IntegerlO; ~ 

Procedure Odd Or Even( Num: in INTEGER ) is 
egin - - % i 

case Num is 

when 1 I 3 I 5 I 7 I 9 I 11 I 13 I 15 I 17 I 19 
put_line( "Odd Number" ); 

when 2 [ 4 I 6 I 8 I 10 j 12 I 14 I 16 I 18 I 20 

put_line( "Even Number" ); 

when others => put_line( "Number Out of Range" 

end case; 
NEW LINE; 
end Oda_Or__Even; 

begin 

put__line{ "Please enter Integer values in the range 
1..20." ); ^ 

NEW LINE; 

putT ♦•Enter first values " )? 

get( Numl ); ' 
dd Or Even( Numl ) ; 
putT "Enter second value : " 1 ; 
get( Num2 ); ' 
Odd Or Even( Num2 ); 
putT "Enter third value: " ); 

8et( Num3 ); ' 
dd Or Even( Num3 ); 
putT "Knter fourth value « " 1 ; 

8et( Num4 ); ' 
dd Or Even? Num4 ); 
putT "Enter fifth value: " V; 

getj NumS ); ' 
dd Or Even? NumS ) ; 
end Try Case; 
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INFORif&TION LESSON PLRH 



ILP II. R 



^ I ; BM)^ - "Fundamentals of Ada Prpgramming" 



IV. LESSON OBJECTIVES: At the completion of this lesson, 
the student should be able to: 

1. Understand when and how to use a loop structure. 

2. Describe the differences between a loop.. exit, 
for.. loop, in reverse. .loop, and while.. loop. 

3. Write a program using each of the structures in 
( 2 ) above « 

V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block II 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module". 

Read & take notes on the following sections: 

Block II, Lesson 3, Topics 5-8 

a . Loop . . exit . 

b. For.. loop. 

c . In reverse . . loop . 

d. While.. loop. 

VI. SPECIAL RESOURCES: 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On-Line Training and Reference Module". 

Volper, Katz, Introduction to Proaraitimina using Ada , 
Prentice Hall, 1990, pp. 159. 



o 
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VII. PRESENTATION 

A. Introduction 



1. Compare a loop structure with the countdown o£ 
the space shuttle launch. 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. loop.. exit 



2. For.. loop 



3 , In reverse . . loop 



4. While.. loop 



la. Allows for multiple 

iteration of Ada program 
statements. 

lb. Termination of the loop 
occurs when the exit 
statement is reached, and 
program begins execution 
after the end loop statement. 

Ic. Loops may be nested (one loop 
completely inside another) . 

Id. Loops may be named. 

2a. Specialised loop which has a 
built in counter to count the 
number of times that the loop 
has iterated (i.e. an integer 
range like 1..10). 

2b. Index values exist inside 
loop, and do not exist 
outside of loop. Loop 

farameters cannot be altered 
nside loop. 

2c. For. .loop structures can be 
named, and may contain exit 
statements . 

3a. Same as for.. loop only counts 
backwards. However, range is 
given forward (from 
smallest to largest) . 

4a. Conditional loop; will loop 
as long as condition remains 
true. When condition is 
false, program execution 
begins after the end loop. 
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XiA^RATORY SXPERIMBNT 



LAB II. RA 



; -B^ "Fundamentals of Ada Programming" 

;ii ^ ■ ; , '-. ■ ■'■ ; ■ / ■ , 
iiii^ 

:TI^ ^'The Loop Control Structure" 



V. STODBHT OBJECTIVES: At the completion of this 
experiment, the student should be able to: 

1. Create and use a simple Ada loop structure, which 
contains an exit statement. 

VI. REQUIRED MATERIALS : 

1. Note taking materials. 

2. AETECH "IntegrAda" with "On-Line Training and 
Reference Module". 

3. Student Data Disk. 
VII. PRCXIEDDRE 

1. Create a procedure which uses a simple loop., exit 
structure, which prompts the user to enter 
integers from the keyboard, and adds the input 
integers in an accumulator. The program quits 
when the accumulator equals or exceeds 100. The 
program should output to the monitor the value of 
the accumulator as it goes through the loop each 
time. When the value of the accumulator reaches 
or exceeds 100, the program should display "Normal 
Program Termination". Save your program as 
LAB22.ADA. ^ 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

4. Power down computer, and clean up area. 
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— ♦ The Lcx>p Control Stmictiure * — ; 

— Author's Name 2 TEACHER GUIDE ; 
Assignment Number : LAB # II.RA ; 

Program Executive — — — — — 

— Below is a solution for Lab # II.RA. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 



with TEXT_IO; use TEXT_IOj 
procedure Simple_Sum is 
Value, Sum : INTEGER; 

package Integer 10 is new INTEGER_I0( INTEGER ); 
use Integer 10; 

begin 

Sum s- 0; 
loop 

put( "Please enter an Integer value: " ); 

get( value ); 

NEWSLINE; 

Sum s= Sum + Value; 
put( "Current Value of Sum is: "); 
put( Sum, Width => 1 ); 
NEWSLINE? NEW_LINE; 
exit when Sum >= 100; 
end loop; 

put_line( "Normal Program Termination." ); 
end Simple__Sim; 
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LAB II. RB 




LABORATORY EXPERIMENT 




/"Fundamentals' :o^-;iV<iit';^:Prbgra3^ 


.{■vll • TOUTS ^ ;■. 










:::«i;bbp^ and '■■■■Reverse-''^ 



V. STUDENT OBJECTIVES : At the completion o£ this 
experiment, the student should be able to: 

1. Write an Ada program which uses a simple 
For. • loop. 

2. Write an Ada program which uses a reverse loop. 
VI. REQUIRED MATERIALS! 

1. Note taking materials. 

2. AETECH "IntegrAda" with "On-Line Training and 
Reference Module", 

3. Student Data Disk. 
VII. PROCEDURE 

1. Write a procedure which prompts the user for a 
positive integer, and then outputs the stimmation 
of numbers from 1 to the input integer value. 
Save this program as LAB23A.ADA 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 
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Write a program which simulates a shuttle 
countdown starting at 10 seconds and going to 
zero. Output "lift-off- after countdown. Use a 
delay statement. Use a reverse loop. Output 
should be as follows: 

10 
9 
8 
7 
6 
5 
4 
3 
2 
1 

"LIFT - OFF" 

Save this program as LAB23B.AOA. 

Follow steps 2 and 3 above. 

Power down computer, and clean lip area. 



o 
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— .* Loop and Reverse Iioop 

— Author's Name s TEACHER GUIDE ; 

— Assignment Number s LAB # II. RB ; 

-—>—————— Program Executive 

— Below is a solution for Lab # II. RB. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 

with TEXT_IO; use TEXT_IO; 

procedure For Sum is 

I, Limit, ?um s NATURAL; 

package NatIO is new INTEGER 10 ( NATURAL ); 
use NatIO? ~ 
begin 

put( "Enter a Positive Integer to serve as the limit of a 
summation: " ) ; 
get( Limit ); 
NEWSLINE? NEW_LINE; 
SuraTsss 0; 

for I in 1 . . Limit loop 

Sum i« Sum + I; 
end loop; 

put( "The Summation of all Integers from 1 to " ); 
put( Limit, Width «> 1 ) ; 
putj " is8 ); 
put{ Sum, Width => 1 ); 
NEWSLINE; 
end For_Sum; 



with TEXT_IO; use T12XT_I0; 
procedure CountDown is 
I t NATURAL; 

package NatIO is new INTEGER 10 ( natural ): 
use NatIO; - ^ 

begin 

put line( "Countdown..." ); 
NEW_LINE; 

for I in reverse 1 . , 10 loop 

put( I, Width 3 ); 

put line( - ..." ); 

delay ( 1.0 ); 
end loop; 

put_line( " LIFT-OFF" ); 
end CountDown; 
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LAB IZ.RC 

LABORATORY EXPBRIMENT 



f..ii;:';UNm 
III. ij^ 



V. STUDENT OBJECTIVES s At the completion of this 
experiment, the student should be able to: 

1. Create and use a simple Ada procedure which uses a 
While.. Loop structure. 

VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. AETECH "IntegrAda'* with "On-Line Training and 
Reference Module'*, 

3. Student Data Disk. 
VII. PROCEDURE 

1. Create a procediire which uses a while loop to 
input an undetermined number of student grades. 
The grades can have a value between 1 and 100 
(range 1..100). Input these grades from the 
keyboard. The loop is terminated when a value 
outside the grade range is given. Finally, the 
procedure outputs to the screen the average of the 
grades entered. Save this program as LABz4.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

4. Power down computer, and clean up area. 
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— * The While. .Loop Control Structure * — ; 

— Author's Name s TEACHER GUIDE ; 

— Assignment Number s LAB # II.RC ; 

— — - Program Executive — — — 

— Below is a solution for Lab # II.RC. This solution may 

— be used bj' the instructor as a guide for helping 

— students complete the laboratory assignment. 

with TEXT_IO? use TEXT_IO; 
procedure AveragejGrades is 

Grade, Sum, Num Grades s INTEGER; 

Avg s FLOAT; "~ 

package IntegerlO is new INTEGER 10 ( INTEGER ): 
use IntegerlO; ~ 
package ReallO is new FLOAT 10 ( FLOAT ) ; 
begin *" 
Sum :a 0; 
Num_6rades := 0; 

put_line( "Please nOTEi All Test Scores are to be in 
the range 1 , . lOO . ** ) ; 

put line ( "Enter a value outside that range 
to terminate. " ) ; 
NEW LINE ; NEWSLINE ; 

putT "Please Enter First Test Score i " ); 
get( Grade ); 
NEW LINE; 

while ( Grade in 1 .. lOO ) loop 
NumjGrades $» Num_Grades -(-1; 
Sum sa Sum Grade; 

put( "Please Enter Next Test Score (negative or > 100 
to stop) J "); 
get( Grade }; 
NEW LINE; 
end loop; 

NEW LINE; NEW LINE; 

if T Num Grades > 0 ) then 

Avg 8= FLOAT ( Sum ) / FLOAT ( Num Grades ); 

put( "Average of " ) ; ~ ' 

put( Num_6rades, Width => 1 ) ; 

putf " grades iss "); 

RealIO.put( Avg, Aft =» 2, Exp => 0 ) j 

NEW_LINE; ^ " 

else 

P^t-li'}e( "There is no Average because No Grades were 
Entered 11" } ; 
end if; 
end Average_Grades ; 
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INFORMATION LESSON PLAN 



ILP II. S 



I .BLOCKS II - "Fundamentals of Ada Prograiraning 

•-■'vii.'-'UNiT:-; s ■ ■ ■ ■ 

III, LESSON TITLE t "Style** 



IV. LESSON OBJECTIVES: At the completion of this lesson, 
the student should be able to: 

!• Understand how a program's style makes the 
program more understandable. 

2. Choose appropriate names for types and objects. 

3. Choose appropriate names for packages. 

4 . Choose appropriate names for procedures and 
functions . 

5. Understand the importance of indentation, and be 
able to indent the logical levels of a program. 

6. Know when and when not to place a cr/lf in a 
program . 



V, LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block II 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on the following sections: 

Block II, Lesson 4, Topics 1, 2, 5-10 

a. Precision in naming, 

b. Simple objects and types. 

c . Packages . 

d. Other program units. 

e. Logical indentation. 

f. Declaration/assignment alignment. 

g. Conditional blocks. 

h. Line spacing. 
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VZ. SPECIAL RESOURCES s 

AETECH "Ada Training Environment" and "ijitegrAda" 
with "On-line Training and Reference Module". 

VII. PRESENXATION 

A. Introduction 

1. Describe how hard it would be to read a book 
or text that lust ran together, without any 
chapters, table o£ contents, etc« and compare 
this to a program without any style. 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Naming 



2. Objects and Types 



3* Naming Packages 



la. Names should be descriptive 
enough to allow another 
programmer to understand what 
the program is doing. 

lb. All lexical units must fit 
onto 1 line. (Block II, 
Lesson 2, 7opic 2 for lexical 
information) . 

Ic. Again, Ada is non-case 
sensitive, it makes no 
difference to compiler 
whether names 2ire in 
upper or lower case letters, 
or a combination of both. 
( Refer to mil-spec 1815a for 
required gov't style; also 
AETECH 's "integrada" for 
"Pretty Print"). 

2a. Object or "box" must be 

declared to be of a certain 
type; box can only hold its 
own type of things. 

2b. Objects and object-types 
should be named using noun 
names. Type names should 
contain the word "type" at 
the end of their new name. 

3a. A package should have a name 
that conveys to the user 
what the package provides, 
thus naming of a package may 
require additional thought 
so that the user will know 
what tools are available 
within package. 
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B. Instructional Topics and Key Points 



TOPIC 



4. Naming procedures 
and functions 



5. Program Indentation 



6« Line Spacing 



KEY POINT 



4a. Procedures perform some 
action; therefore, use 
imperative verb phrases when 
naming them, that represent 
some action. 

4b. Functions return a value; 
therefore, use a noun when 
naming them that represents 
the value. 

5a. Align a program so that it 
becomes more readable and 
understandable . 

Sb. Hain programming blocks 

(procedure, begin, end, etc) 
should stand out. 

5c, If structures, case 
structures, loops, etc 
should be xndented to stand 
out. This will not only 
create more readable code, 
but also makes debugging the 
program easier. 

5d. Align colons, is, variables, 
etc. for better readability. 

6a. Use line spaces wherever it 
makes a program more 
readable. Don't put line 
spaces in between same kinds 
0£ declarations. 
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INFORMATION LESSON PLAN 



ILP III. A 



CI; HLOO^ '^Advanced Ada Topics ' 

Ill . laSSON TITLES "Type Attributes 



IV. LESSON OBJECTIVES: At the completion of this lesson, 
the student should be able tos 

1. Define attribute. 

2. Use the syntax for expressing an attribute. 

3. Be able to identify and use the following 
attributes : 

'Piarst 

'Last 

'Succ 

'Pred 

'Pos 

'Digits 

'Small 

'Large 

V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block III 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On~Line Training and Reference Module", 

Read & take notes on the following sections: 

Block III, Lesson 2, Topics 9-10 

a. Using attributes. 

b. Scalar attributes. 

VI. SPECIAL RESOURCES: 

AETECH "Ada Training Environment" and "JnteorAda" 
with "On-Line Training and Reference Module", 

SJansholm, Ada From the Beainnino . Addison- Wesley, 
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VII. PRESENTATION 

A. Introduction 

1. Explain how attributes may be able to help a 
program become more readable and 
understandable. Enumerate days o£ week and 
show attributes of list. 

B. Instructional Topics and Key Points 



TOPIC 



1. Attributes 



2. Integer Attributes 



3. Float Attributes 



4. Enumeration Attributes 



5. Character Attributes 



KEY POINT 



la. Definition - because scalar 
types are ordered sets of 
elements, attributes 
(relationships within list) 
may be able to be defined. 
An attribute is a 
characteristic of a value in 
a set. 

lb. Syntax is to use an 
apostrophe, then (if 
required) other data in 
parenthesis . 

2a A'Pirst - yeilds the lower 
bound of A for a scalar. 
A'Last > yeilds upper bound 
of A for a scalar. 

3a. 'Digi-ts - Number of 
significant digits. 
'Small - smallest number that 
can be stored. 

'Large - largest number that 
can be stored. 

4a. 'First - first item in 

enumerated list. 
'Last - last item in 

enumerated list. 
'Prec(item) - returns 

predecessor of ITEM in list. 
'Succ(Item) - returns 

successor of ITEM in list. 

5a. 'Pos(Char) - gives position 
number of Char in ASCII 
table. 

'Val(NDK) - gives char, in 
Num position within ASCII 
table. 
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INFORMATION LESSON PIAN 



ILP III.B 




ft 



III. liESSON TITLES "More Attributes 



H 



IV. LESSON OBJECTIVES 8 At the completion of this lesson, 
the student should be able to: 

1. Identify what would be returned by the following 
attributes used with their appropriate types: 



V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block V 

AETECH "Ada Training Environment" or "XntegrAda" 
with "On-Line Training and Reference Module". 

Read & take notes on the following sections: 

Block V, Lesson 4, Topics 1-4, 6. 

a. Notation and use. 

b. Discrete types. 

c . Integers . 

d. Arrays. 

e. Floating/Fixed point. 

VI. SPECIAL RESOURCES: 

AETECH "Ada Training Environment" and "IntegrAda" 
with "On-Line Training and Reference Module", 



'Val(X) 

'Range 

•Aft 



'Length 
' Value (X) 
'li^ige(X) 
'Width 



'Pore 
'Delta 
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VIZ. PRESENTATION 

A. Introduction 

1. Discuss how using attributes can help in the 
describing of items, and make the finding/ 
retrieving of items easier. 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. List of Attributes 



la. 'VaL(X} -returns value of 

data at position X. 
lb. 'Value(X) - returns type 

value of X. 
Ic. ' Image (X) - returns string 

value of X. Returns string 

decimal value for integer X. 
Id. 'Width - returns the longest 

value of X. 
le. 'Length - returns the number 

of items in list. 
If. 'Range - returns the range of 

the list from 'first. . 'last. 
Ig* 'Aft - returns the number of 

digits after decimal point. 
Ih. 'Fore - returns the number of 

digits before the decimal 

point (includes -sign), 
li* 'Delta - returns declared 

delta . 

Ij. 'Digits - returns the 
declared digits. 
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IV. LESSON OBJECTIVESs At the completion of this lesson, 
the student should be able tos 

1. Define record. 

2. Declare a record type. 

3. Declare objects of type record. 

4. Assign components of a declared object of type 
record using dot notation, and either positional 
association, or named association. 

V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block II & III 

AETECH "Ada Training Environment" or "integrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on the following sections: 

Block II, Lesson 4, Topic 4. 

a . Records 

Block III, Lesson 4, Topics 1-3, 5, 6. 

a. Record types. 

b. Object declaration. 

c. Selected component notation. 

d. Aggregates. 

e. Composite types. 

VI. SPECIAL RESOURCES: 

AETECH "Ada Trainina Environment" and "IntegrAda" 
With "On-Line Training and Reference Module", 

Skansholm, Ma from the BeainniT^g, Addison-Wesley, 
i9Bo, pg . 320. 
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VII. PRESEirCAXIOM 

A. Introduction 

1. Describe how a person's address is made up of 
different data types, and how records could be 
used to describe an address. 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Record Definition 



2. Record Declaration 



3. Declaring objects of 
type Record 



4. Component Assignment 



la. Group of possible 
heterogeneous (not 
of the same type) items. 

lb. Records usually consists of 
components of different types 
which may be scalars, arrays, 
tasks, or other records. 



2a. type 



2b. 



is record 



<object declarations > 
end record; 

Indent for readability. 



2c. end record has ; 

3a • Done as the declaration of 
other objects is done; only 
must come after the record 
type has been declared. 

4a. May be performed several 
wayss 

a. Dot notation -> 
object. component name 
followed by s*. " 

b. positional association 

c. named association (must 
readable) . 
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lABORftilORY EXPERIMENT 



LAB III.C 



X. BLOCKS XIZ - "Advanced Ada Topics'* 
XIX. LAB HOkBERs 25 



ERIC 



IV. LAB TITLE: "Records" 

V. STDDEHT OBJECTIVES: At the completion of this 
experiment, the student should be able to: 

1. Create and use a main Ada procedure which utilizes 
a record construct. 

VI. REQUIRED HATERIAIf: 

1. Note taking materials. 

2. AETECH ''IntegrAda" with "On-Line Training and 
Reference Module", 

3. Student Data Disk. 
VII. PROCEDDRE 

1. Create the following record types: 

type Name__type is record 

L Names String( 1 . . 20 ) ; 

P"Tlarae8 Stringj 1. .20) ? 

HH s Character; 
end record; 

type St Type is record 

Name : ~!Name_type ; 

Age : Integer; 

GPA : Float; 
end record; 

Declare 3 objects of type St Type. Have the user 
enter the data for 3 students. Output the 3 
students names, age, and GPA of each student. 
Calculate the average age, and average GPA of the 
three students and output this information. 

Save this program as LAB2S.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

4. Power down computer, and clean up area, 
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* Records *— 



Author's Name : TEACHER GUIDE ; 

Assignment Number : LAB # iii.c ; 



«. — — - — — Program Executive 

— Below is a solution for Lab « III.C. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 

with TEXT 10 5 use TEXT_IO; 
procedure^Students is 

type Name_Type is 
record 

L Name s STRIN6( 1..20 ); 
F Name s STRING? 1..20 ); 

mT s character? 

end record; 

type St_Type is 
record 

Name : Name Type; 

Age s INTEGER; 

GPA s FLOAT; 
end record; 

St_l, St_2, St 3 J St Type; 
Avg Age, I s INTEGER;" 
Avg~6PA : FLOAT; 

package Integer 10 is new INTEGER_IO( INTEGER ); 
use Integer 10; 

package FloatIO is new FLOAT 10 ( FLOAT ); 
use FloatIO; 

Procedure get_data( Student s out St_Type ) is 
egin 

put( " Last Name: » )• 

I J= 0; ' 
while ( not End of Line ) loop 

I s= I + 1; ~ ~ 

get( Student. Name. L Name( I ) ); 
end loop; ~ ^ ' " 

Student. Name. L Name(I + 1..20) := (I + 1..20 => ' Ms 
SKIP_LINE; - * i \ a 

put(~'' First Name: « )• 

I t- 0; 

while ( not End of Line ) loop 
I := I + l;" 

?et( Student . Name . F Name( I ) ); 
oop; - * ' 

Student. Name. F_Name( I + 1..20 ) i« (i + X..20 => ' '); 
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NEW LINE; 

put? " Middle Initial: «> " ); 
get( Student. Name. HI ); 
NEW LINE; 

pUtT " Ages =aoes=s==«!===!=> " )• 

getf Student .Age ); 
NEWSLINE s 

put( 6PAi " )• 

get( Student. CPA ); 
NEW LINE; NEWSLINE; SKIP LINE; 
end get data; ~ 

grocedure print_data( Student t in St_Type ) is 
egin 



put( Student. Name. L_Naine ); 
putf Student. Name. F Name ); 
''^ Student. Name. ); 

Student. Age, Width => 9 ); 

Student. 6PA, Fore «> 3, Aft => 2, Exp => 0 ); 



put 
put 
put 



NEW LINE; 
end pfint_data; 

begin — procedure Students 

^ P»it line{ "Please enter the following information for 
StudenlE #1 s** ); 
get_data( St I ); 

§ut_line( "Please enter the following information for 
ent #2 s" ); 
get_data( St 2 ); 

put__line( "Please enter the following information for 
Student #3 ); 
get dataf St 3 ); 
NEMHLINE; 

put~line( " Summary of Student 

Datas ^ ); 

put_line( " Name ")• 

put_line( " Last First Initial 

Age CPA" ); 
print__data( st_l V; 
print data? St__2 ); 
print~eiata( St 3 ) ; 
NEW_LTNE; NEi9f LINE; 

Avg Age 8= ( St~l.Age + St 2.Age + St 3.Age ) / 3; 
putT '^The Average Age of tEe Three Students iss «); 
put( Avg Age, Width => 1 ) ; 
NEW LINEJ NEW LINE; 

Avg GPA 8= ( S€_1.GPA + St 2.GPA + St 3.GPA ) / 3.0; 
putT "The Average GPA of tKe Three Students iss 
put( Avg_6PA, Aft => 2, Exp => 0 ) ; 
NSW LINEj ' 
end Students; 
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IV. LESSON OBJECTIVES s At the completion of this lesson, 
the student should be able tos 

1. Define array. 

2. Identify how to index an array. 

3. Define unconstrained array, and identify the 
syntax for an unconstrained array. 

4. Describe multidimensional arrays, and list an 
example of their use. 

5. Assign components to a declared array using 
named and positional association. 

V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block II & III 

AETECK "Ada Training Environment" or "XntegrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on the following sections: 

Block II, Lesson 4, Topics 3 

a. Arrays 

Block III, Lesson 3, Topics 1-11 

a. Simple arrays. 

b . Indices . 

c. Unconstrained arrays. 

d. Multidimensional arrays. 

e. Operations with components. 

f. Assignments, 

g. Aggregates. 



i. Named association, 
j . Aggregate Ranges . 
k. Inxtialization. 
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VI. SPECIAL RESOURCES: 



AETECH "Ada Training Environment" and "IntegrAda" 
with "On^Line Training and Reference Module** , 

P. Texel, Introductory Ada, Wadsworth Publishing, 
1986, pp. 198-199. 

VII. PRBSBNTATION 

A. Introduction 

1. Compare an egg box with a regular box, in that 
an egg box has several (12) different areas 
which store items of the same type (eggs). Then 
introduce arrays, and compare them to the egg 
box. 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Array Definition 



2. Indexing Arrays 



3. Unconstrained Arrays 



4. Multidimensional 
Arrays 



la. Group of homogeneous (of the 

same type) objects, 
lb. Two types of arrays; 

constrained and 

unconstrained . 

constrained - known 

boundaries at time of type 

declaration. 

unconstrained - boundaries 
are not known at time of type 
declaration. 

2a. Definition - indexing is 
method of labeling each 
element in an array. Any 
discrete type may be used to 
index an array. Done inside 
parentheses . 

3a. Uses < > syntax to inform the 
compiler that bounds are not 
known at this time. 

4a. Arrays can have as many 
dimensions as required. 
Helps to better identify 
what's being programmed, 
leading to better under- 
standability and read- 
ability. 
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B. Instructional Topics and Key Points 



TOPIC 


KEY POINT 


5* Assigning Array 
Components 


5a. Hay be done several wayss 

1. By index nuinber 

2. By slice (a range of 
indices) . 

3* By positional association 
(the position of the 
assignment items represent 
their assignment to 
array) • 

4. By named association (list 
name of array component, 
followed by to the 
assignment component. 

5. By a combination of above. 
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lABORATORY EXERCISE 



LAB IIZ.D 



i< -BWC^ ^'Advanced Ada Topics; 

III. IJVB NUMBERS 26 



IV. LAB TITLES "Arrays " 

V, STUDENT OBJECTIVES : At the completion of this 

laboratory exercise, the student should be able to: 

1. Create and use array type objects in an Ada 
main procedure. 

VI. REQUIRED MATERIALS 

1. Note taking materials. 

2. AETECH " JntegrAda " with "On-Llne Training and 
Reference Module", 

3. Student Data Disk. 

VII. PROCEDURE 

1. Write a procedure which declares two arrays with 
indices ranging from 1 to 10. Using a "for" loop, 
assign the components of the first array with the 
consecutive even niunbers from 2 to 20. Using a 
simple loop, assign the components of the second 
array with the consecutive odd nmnbers from 1 to 
19. Finally, using a "while" loop, output the 
following table of values s 



INDEX 



FIRST 



SECOND 



FIRST+SECOND 



1 


2 


1 


3 


2 


4 


3 


7 


3 


6 


5 


11 


etc. 


• • • 


• • • 


* m m 


10 


20 


19 


39 


Save 


your 


program as 


LAB26.ADA. 



FIRST-SECOND 

1 
1 
1 



2. Compile, bind, and execute the program, 

3. Print out a copy of your source code and output to 
be turned in to your Instructor. 

4. Power down computer, and clean work up area. 
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— * Arrays *— 



— Author's Name 

— Assignment Number 



: TBACHBR GUIDE 
: LAB # III.D ; 



— - — - — Program Executive 

- . Below is a solution for Lab # III.D. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 



with TEXT_IO; use TEXT__IO; 

procedure Try__Arrays is 

subtype Positions is POSITIVE range 1 10; 
subtype Values is POSITIVE range 1 20? 

Even_Array, 

Odd_Array : array ( Positions ) of Values; 
I s POSITIVE; 

package PosIO is new INTBGER_IO( POSITIVE ); 
use PosIO; 

begin 

for I in Positions loop 

Even__Array( I ) s= I * 2; 
end loop; 

— The following loop could easily be incorporated into the 
— - above loop 

— (for example, by adding the statement 

— Odd_Array( I ) j= Even_Array{ I ) - 1; 

— immediately before the""end loop; ) . The following 

— adheres to the Laboratory Exercise instructions. 

I 1= 1; 
loop 

Odd_Array{ I ) 8= I * 2 - 1; 
exit when I = 10; 
I s= I + 1; 
end loop; 

put_line( "INDEX FIRST SECOND FIRST + SECOND 

FIRST - SECOND"); 
NEW__LINE; 
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— The following loop could also be incorporated into the 

— first loop above. 

I j= 1; 

while ( X <» 10 ) loop 
put( 1, Width => 3 ); 
put( Even_Array( I ), Width «> 10 ); 
put< Odd_Array( I ), Width «> 11 )j 
put( Bvenjlrray( 1 ) + Odd_Array( I ), Width => 14 ); 
put( Even_Array( I ) - Odd Array ( I ), Width «> 19 )j 
NEWSLINE? ~ 
I s= I + 1; 
end loop; 
end Try^Arrays; 
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INFORMATION LESSON PLAN 


ILP III.E 




BLOCKS III ^ "Advanced Ada Topics** 




•■■.'■■.'II':'. 


UHlT t E ■ 




' III. 


LBSSON TITLE: ^^ExceDtions** 











IV. LESSON OBJECTIVES s At the completion of this lesson, 
the student should be able tos 

1. Discuss the importance of handling exceptions. 

2. Identify Ada's two types of exception type 
objects • 

3. List and provide a brief description of the 
following predefined exception type objects: 

Constriant Error Status Error End Error 

Numeric Error Mode Error Data Error 

Storage~Error Name~Error Layout Error 

Program_Error Use Error " 

Tasicing_Error DevXce__Error 

4. List the sequence of events which take place 
during the handling of an exception. 

5 Provide the necessary Ada statements to declare, 
raise, and handle exceptions. 

6. Define propagation, and understand the conse- 
quences of using handlers. 

V. LEARNING ACTIVITIBS: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block V 

AETECH "Ada Training Environment" or "JntegrAda" 
with "On-Line Traimng and Reference Module", 

Read & take notes on the following sections: 

Block V, Lesson 1, Topics 1-6 

a. Exception conditions. 

b. Predefined. 

c. User defined. 



d. Handling exceptions. 

e. Propagation. 

f. Multiple exceptions. 
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VI. 



SPECIAL RESOURCES s 



AETECH "Ada Training Environment" and ''IntegrAda" 
with "On-Line Training and Reference Module**, 



Skansholm, Ada from the Beginning . Addison-Wesley, 
1988, pp. 431-445. 



VII. 



PRESBliTATION 



A. 



Introduction 



1. Discuss how even the best programs can go 
haywire, and how even the most thought out 
program needs to have a mechanism to handle 
unforeseen conditions. 



B. 



Instructional Topics and Key points 



TOPIC 



KEY POINT 



I. Exception Handlers 



la. 



Definition - An Ada structure 



which allows for the handling 
(correction) of unexpected or 
unforeseen circumstances, so 
that a program can take the 
appropriate action(s). 
lb. Exception Declarations - 
Declares a name for an 
exception. Names are used in 

a) raise statements. 

b) exception handler. 

c) renaming declarations. 
Ic . Name 1 [ , Name 2 . . . ] s 

exception; (can use multiple 
names ) . 

Id. The response to exceptions is 
specified by a handler. The 
handler can be coded in a 
construct that is either a 
block statement, or the body 
of a subprogram, package, 
task unit, or generic unit. 
Such a construct is called 
a "frame", 
le. Handlers handle exceptions 

raised in their frames. 
If. Raise statement - raises 
an exception, 
raise [ except ion_name ] ; 
Ig. Nameless ralsing^can occur 
only in a handler, and is 
used to re-raise the chosen 
exception of the handler and 
propagate it, even though it 
was handled. 
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B. Instzructional Topics and Key Points 



TOPIC 



KEY POINT 



2. Predefined Exceptions 



2. Predefined Exceptions 
(continued) 



2a. Those exceptions that can be 
propagated by the basic 
operations and the predefined 
operators. Predefined 
exceptions are included on 
all Ada implementations. 

Constraint^Brror - occurs 
when an attempt to violate a 
range constraint has been 
made, or to access an unknown 
component of a composite 
type. 

Numeric_Error - occurs if an 
attempt is made to perfoxm 
an impossible numeric 
operation (i.e. divide by 0). 

Storage Error - occurs if 
memory Ts exhausted. 

Pro gram_Error- occurs upon 
an attempt to call a subpro- 
gram or activate a task, or 
elaborate a generic 
instantiation, when the body 
of the unit has not been 
elaborated. 

Status_Ein:or - Occurs if an 
attempt is made to read from 
or write to a file that is 
not open. Also occurs if an 
attempt is made to open an 
already opened file. 

MOdeJBrror - Occurs if an 
att^pt is made to read from 
a file which has been opened 
for writing to, or attempting 
to write to a file which has 
been opened to read from. 

Name_Error - Occurs if an 
attempt to open a file with 
the wrong external file name. 
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B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



2. Predefined Exceptions 
(continued) 



3. User Defined 
Exceptions 



4. Propagation of 
Exceptions 



Use^Error - Occurs if an 
att^pt has been made to open 
a file fro an illegal use 
(open a LPTls file for 
reading from) 

Device_Srror - Occurs during 
a failure of an I/O device. 

End_Error - Occurs if an 
attempt is made to read 
something from a file and an 
EOF has been reached. 

Oata^Error - Occurs when an 
item"~is read in from a file 
and is not of the correct 
type. 

Layout-Error - Occurs if an 
attempt is made to reference 
a line or column number which 
is beyond present boundaries. 

3a. Are exceptions whose names 
are given in exception 
declaration statements. 
Those names can only be used 
in raise statement, renaming 
statements, and exception 
handlers . 

4a. Two ways to propagate an 
exceptions 

a: By not handling it in 
the frame it occurred in. 

bs By using a raise statement 
to handle it. 

4al. When an exception is raised, 
normal program execution is 
abandoned, and control is 
transferred to an exception 
handler . 

4a2. The selection of the handler 
depends on whether the 
exception is raised during 
execution of the program 
statements, or during 
elaboration of the 
declarations . 
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B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



4. Propagation of 
Exceptions 
(continued) 



4a3. 



During execution of 
statements s Frame has a 
handler-control passed to 



handler! after a successful 
handling, the frame doesn't 
have a handler-exception 
propagated. 

4a4. If in a subprogram body - 
raised at call ; If in a 
block-raised immediately 
after block; If in a 
package-raised at end of 
package frame; If in a task- 
task becomes complete. 

4a5. If an exception occurs 
during execution of an 
exception handler, the 
execution of the handler is 
abandoned, and the above 
rules are followed. 

4b. Exceptions should be 

placed at lowest program 
level (frames)) as possible. 
Each frame should handle 
its own unforeseen condi- 
tions . 

4bl. During elaboration of 
declarations; if an 
exception is raised, then 
it will be propogated. If 
the exception was raised 
in a subprogram body-raised 
at call-abandons main; 
Raised in a block-raised at 
end of frame; Raised in a 
package body-raised at end 
of frame; Raised during a 
task-task completes and 
Tasking_Error is raised. 
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LAB III.E 



lABORATORY EXPERIMEMT 





BIiQCKs III - "Advanced Ada T< 


















LAB TPEEiBs "Exceotions« 





V. STODEKT OBJECTIVES: At the completion of this 
experiment^ the student should be able tos 

1. Create and use exception handlers inside 
subprogram units. 

VI. REQUIRED HATERIALS: 

1. Mote taking materials. 

2. AETECH "XntegrAda" with "On-Line Training and 
Reference Module", 

3. Student Data Disk. 
VII. PROCEDURE 

1. Modify the MATH.PKG created in Laboratory 
Experiment 16 and 17 by providing exception 
h£mdlers within the package. When the driver 
programs prompts the user to input integer values, 
either for FACTORIAL, or AREA OF SQUARE, the 
exception handler should be ^le to handle 
erroneous (such as CHARACTER) input data, and 
prompt the user for reentry. Save your new 
improved package as LAB27.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

4. rower down computer, and clean up area. 
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— * Exceptions * — ; 

— Author ' s Name : TEACHER GUIDE ; 

— Assignment Number : LAB # III.E ; 

— « Program Executive 

— Below is a solution for Lab # lll.B. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 

with TEXT 10, MathPkgJ 
use TEXT_To, MathPkg; 
procedure Triangles is 

Sidel, Side2, Side3 : POSITIVE; 
Area s FLOAT; 
Valid s Boolean; 

package PositivelO is new INTEGER I0( POSITIVE ); 
use PositivelO; ~ 
package Float 10 is new FLOAT I0( FLOAT ) ; 
use Float 10; ~ 

begin 

put_line( "This program will calculate the area of a 
given triangle." ) ; 

put_line( "Please enter INTEGER values when lengths are 
requested.** ); 
Valid FALSE: 
while ( not Valid ) loop 
loop 

begin — block 
NEW LINE; 

putT "Please enter length of side ones "); 

getj Sidel ); ' 

NEW LINE; 

exit; 

exception 

when Data Error => 

put__line( "All Lengths must be Positive 
Integers 11" ) ; 
SKIP LINE; 
when OtHers => 

put_line( "Miscellaneous Error 11" ); 
raise; — propagate 
end; — block 
end loop; 
SKIP LINE; 
loop"" 
begin — block 
NEW LINE; 

putj "Please enter length of side twos "); 
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get{ Slde2 ); 
NEWSLINE; 
exit; 
exception 

when Data_Error 

put_line( "All Lengths must be Positive 
Integers 11" ) ; 
SKIP^LIMEf 
when Others ^> 

put_line( "Miscellaneous Errorl 1" ); 
raise; — propagate 
end; — block 
end loop; 
SKIP_LINE; 
loop"" 

begin — block 
NEWSLINE; 

putj "Please enter length of side three: "); 

get( Side3 ); 

NEWSLINE; 

exit; 

exception 

when Data_Error => 

put__line( "All Lengths must be Positive 
Integers 11" ) ; 
SKIPJLINE; 
when Others o 

put_line( "Miscellaneous Errorl 1 " ); 
raise; — propagate 
end; — block 
end loop; 

NEWSLINE; SKIP LIIJE; 
if (Sidel + Side2~> Side3) and (Side2 + Side3 > Sidel) 
and (Sidel + SideB > Side2) then 
Valid 8= TRUE; 

Calc_Tri_Area( Sidel, Side2, SideB, Area); 

else 

put_line( "Invalid Sides! Try Again ... " ); 
end if; 
end loop; 

put{ "The Area of the given Triangle isf " ); 
put( Area, Aft => 2, Exp => 0 ); 
put^ line( " Square Feet." ); 
NEW__LINE; 
end Triangles; 
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IWFORMMPION LESSON PIAM 



ZLP III.F 



;r .:f .MiOCKs. .•; lil •■ •'Advanced :' Ada;; ^bgics'' 



, ■ s . 



^lli^Jr -IiBSS TlTt^ ^Private «Pvp6s »^ 



IV. LESSON OBJECTIVES s At the completion of this lesson, 
the student should be able tos 

1 . Identify the uses of private and limited private 
types. 

2. Discuss the limitations of private and limited 
private types. 

3. Identify where private and limited private types 
may be declared. 

4. List the three steps necessary to declare a 
private or limited private type. 

V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture. 

3. CAI Assignment - Block V 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module". 

Read & take notes on the following sections: 

Block V, Lesson 2, Topics 1-6. 

a. Limiting operations. 

b. Declaration. 

c. Private types. 

d. Limited private types. 

e. Hiding data structures. 

f . Information hiding. 

VI. SPECIAL RESOURCES s 

AETECH "Ada Training Environment" and "JntegrAda" 
with "On^Line Training and Reference Module" » 

Skansholm, Ada from the Beainnino . Addison-Wesley, 
1988, pp. 372-376. ^ 
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VII. PRESENTATION 



A. Introduction 

1. Discuss how easy it is for someone to use a 
package in a manner which the programmer 
didn't intend the package to be used. Discuss 
why a programmer may want to limit the 
availabiXxty of certain operations that the 
user could perf omi then introduce private and 
limited private types. 

B, Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Private and Limited 
Private Types 



2. Private and Limited 
Private Type 
Declarations . 



2b. 



la. Are types for which the set 
of possible values is well 
defined, but not directly 
available to the user. This 
prevents user from making use 
of the internal structure of 
the type. Also, encapsulates 
data, where only those 
operations specified in the 
package may be performed on 
those type of objects. 

2a. Are only allowed as a dec- 
larative item at the visible 
part of a package, or as the 
generic parameter declaration 
in a generic formal part. 
Limit the operations that may 
be performed on objects de- 
clared as private or limited 
private. 
2c. The type declaration is in 
the visible part of a 
package; serves to limit the 
uses of objects of type 
private by outside program 
units . 

A type declaration must have 
a corresponding declaration 
of a type with the same 
identifier. It must appear 
as a declarative item of the 
private part of a package. 
Type declaration must not be 
an unconstrained^ type. 
Type name cannot appear 
within fvlmple expressions, 
or in occurrences of derived 
types. 

2g. "Private Type Declaration" 
creates the type 
corresponding; "Pull Type 
Declaration" specifies the 
definition of the type. 



2d. 



2e. 
2f . 
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B. Instructional Topics and Key Points 



TOPIC 


KEY POINT 


3. Operations of Private 
and Limited Private 
Types. 

4. Declaring Private 
and Limited Private 
Types 


3a. Operations of a Private Type 
(Outside Package) - allows 
assignment, membership tests, 
selected components^ qualifi- 
cation and explicit convers- 
ion, attributes (type and 
object), tests for equality 
or inequality. (Inside 
Package) - operations 
implicitly declared by the 
full type declaration. 

3b. Operations of a limited 

Private Type - no assignment, 
no tests lor equality or 
inequality; no initialization 
of objects, no use as a 
generic formal '^in'^ 
parameter, no aggegx^tes, and 
no concatenation. Task type 
is a limited private type. 

4a. Three steps: 

a. Declare a type to be 
private or limited 
private. 

b. Identify exportable 
components for type. 

c. Complete the corresponding 
full type declaration in 
the private part of the 
package , 
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INFORMATION LESSON PLAN 



ILP III. 6 



''Advanced Ada Topics" 
■^vViii:.':rLESSOM TITLES "Generics" / T 



IV. LESSON OB^TBCTIVES: At the completion of this lesson, 
the student should be able to: 

1. Define generic. 

2. Define instantiation. 

3. Instantiate a predefined generic iinit. 

4. List the advantages of generic type units. 

5. Use generic types in a program. 
V. LEAXtNINIG ACTIVITIES s 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block V 

AETECH "Ada Traininq Environment" or "IntegrAda" 
with "On~Line Training and Reference Module". 

Read & take notes on the following sections: 

Block V, Lesson 3, Topics 1-9 

a. Description. 

b. Generic package definition. 

c . Instantiation . 

d. Instantiation of predefined generic packages. 

e. Generic subprograms. 

f. Subprogram Instantiation. 

g. Generic parameters. 

n. Passing parameters to generic packages, 
i. Generics and productivity. 



VI. SPECIAL RESOURCES I 

AETECH "Ada Training Environment" and "IntegrAda'* 
with "On-Line Training and Reference Module", 
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VZI. PRBSENTATION 

A. Introduction 

1. Discuss a box of generic corn £lakes and 
describe how the box could contain Kellogg 's 
Corn Flakes, Post Com Flakes, etc. Then use 
this idea to introduce generics in 
programming (generic swap) . 



B. Instructional Topics and Key Points 



TOPIC 


KEY POINT 1 


1. Generic 

I . Instantiation 


la. Definition - called a tem- 
plate, which is parameterized 
or not, that allow packages 
and subprograms to be coded 
which wxll work for multiple 
types. User must provide type 
to generic when 
instantiating . 

lb. Allows for units to be 
reused, which supports 
reusability, a software 
engineering goal. 

Ic. Two types of generic units, 
subprograms and packages. 

Id. Generic declarations, along 
with their formal parameters, 
must be declared before they 
can be used. 

2a. Definition - to create a copy 
of a generic package which Is 
usable (to make a generic 
package available for use) by 
passing the required types 
and parameters to the package 
or subprogram and naming a 
copy it. An instance ox a 
generic package becomes a 
package. An instance of a 
generic subprogram becomes a 
suDprogr am . 

2b. Type in generic is conven- 
tionally "element". New type 
is passed to generic, takes 
the place of element type. 

2c. May use either positional 
or named association when 
passing parameters to a 
generic « 

2d. Rules for Instantiations 

1. Explicit actual for every 
formal unless a default. 

2. Can use positional or 
named. 

3. Expressions can match 
parameters of mode in. 
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B. Instructional Topics and Key Points 



TOPIC 



3. Predefined Generic 
Package 



4. Generic Naming 



5. Generic Formal Objects 



6. Generic Formal Types 



7. Generic Formal 
Subprograms 



KEY POINT 



3a. Integer 10 
Ploat_lS 
Eniuieration_IO 
Direct_IO 
Sequential^IO 

4a. Outside the specifications 
and body of a generic imit, 
the name of the unit denotes 
the generic unit. 

4b. Inside the declarative region 
of a generic subprogram, the 
name denotes the subprogram 
obtained by the current 
instantiation of the generic 
unit . 

4c. Inside the declarative region 
of a package, the name 
denotes an instantiated 
package • 

4d. Inside names of subprograms 
and packages can be over- 
loaded, and can be recur- 
sively called. 

5a. Have a mode that is either 
in or in out, with in as 
default. 

5b. If declaration ends with an 
expression, it is the default 
expression (for "in"). 

6a. Type declarations which allow 
an instantiation to select 
its types. Available types 
are Private, Array, Access, 
Discrete, Integer, Float, 
Fixed . 



7a. 



7b. 



Includes a declaration with 
2 default forms: <> or 
(subprogram or entry (task) ) . 
Generic Bodies - are a 
template for the corres- 
ponding packages or 
subprogram bodies. Every 
generic subprogram must have 
a body. Generic bodies 
appear the same as bodies 
for non-generic units. 
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lABORATORY EXPERIMENT 



LAB III.G 



V. STODENT OBJECTIVES: At the completion o£ this 
experiment, the student should be able to: 

1. Write a simple generic procedure utilizing a 
private type. 

VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. AETECH "IntegrAda" with "On-Line Training and 
Reference Module". 

3. Student Data Disk. 
VII. PROCEDURE 

1. Write a generic procedure which takes two objects 
(Objectl and Object2), and swaps their contents. 
Write a driver which instantiates the generic swap 
procedure for integer and character types. The 
driver should prompt the user to input an integer 
into Objectl, input an integer into Object2, swap 
their contents, and display the swapped results. 
The same idea should be followed for the swapping 
of two characters. Save this program as IiAB28.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable output to turn in to your Instructor. 

4. Power down computer, and clean up area. 
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— * Generics * — s 



Author's Name t TEACHER GUIDE ; 

Assignment Number s ZiAB # I II. 6 ; 



— — — Proaram Executive — - — 

— Below is a solution for Lab # III.G. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 

with TEXT^IOj use TEXT_IO; 

procedure TryjGenerics is 

Intl, Int2 : INTEGER: 
Charl, Char2 : CHARACTER; 

generic 

type Swap Type is private: 
procedure Swap ( Obfectl, Object2 s in out Swap_Type ); 

procedure Swap ( Object 1, Object2 : in out Swap Type ) is 
Temp 3 Swap Type := Objectl; *" 

begin ~ 

Objectl :« Object2; 
Ob3ect2 :» Temp; 

end Swap; 

procedure Swap_Ints is new Swap( INTEGER ); 

procedure Swap_Chars is new Swap( CHARACTER ); 

package IntegerlO is new INTEGER 10 ( INTEGER ) ; 
use IntegerlO; ~~ 

begin — Try_Generics 

put( "Please enter an Integer value: " ); 

get( Intl ); ' 
EW LINE; 

putT "Now enter a Second Integer value: " ); 

getj Int2 ); ^ " 

NEWSLINE; NEW LINE: 

Swap Ints( Intl7 Int2 ); 

put Tine( "After Swapping Values: " ); 

putT " First Integer is: ===> " ); 

gut( Intl, Width => 1 ); 
EW LINE; 

putT "And Second Integer is: " ); 

put( Int2, Width => 1 ) ? 

NEW LINE; NEW_LIIJE; NEW LINE; 

putT "Please enter one Character: " ): 

get( Charl )? ' 
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NEWSLINE; 

put( "Now enter a Second Characters " ); 

get( Char 2 ); 

NEWSLINE? NEWSLINE? 

SwapjChars( Charl, Char2 ); 

put_line( "After Swapping Values: » )j 

put( " First Character is: ===> - ); 

put( Charl ); 

NEWSLINE; 

putj "And Second Character iss ); 
put( Char2 }; 
NEWSLINE; 
end TryjGenerics ; 
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IHFORMATION I«ESSO!l PLhS 



ILP III.H 



\ I, BLOCKS III - "Advanced Ada Topics < 
111. XSSSON TlTXiBs ^Seaaentlal iPilea ^* 



IV. LESSON OBJECTIVESs At the completion of this lesson, 
the student should be able tos 

1. Define sequential file. 

2. Create a sequential file. 

3. Open, clo^e, read, and write sequential files and 
their associated infozination. 

4. Identify the following file functions? 

Mode Name Form 

Isjppen EndjDf_Pile 

V. LEARNING ACTIVITIES 8 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block VI 

AETECH "Ada Trainina Environment" or "JntegrAda" 
with "On-Line Trainxng and Reference Module", 

Read & take notes on the following sections: 

Block VI, Lesson 2, Topics 1-8, 10 

a . Packages * 

b. Nontextual data. 

c. File objects 

d. File modes. 

e. Creating and opening files. 

f. Closing, resetting, and deleting files. 

g. Instantiation. 
. Sequential 10 reading and writing, 
i. Useful file functions. 

VI. SPECIAL RESODRCESs 

AETECH "Ada Trainina Environment" and "ijitegrAda" 
with "On-Line Training and Reference Module". 
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Skansholm, Ada From The BealnninQ. Addison-Wesley, 
1988, pp. 492-498. 

VII. PRESENTATION 

A. Introduction 

1. Choose a file ixom a convenient filina 

cabinet, and discuss this file , why it is a 
file , and what information a file can 
contain; then introduce sequential files. 

B. Instructional Topics aiid Key Points 



TOPIC 



1. Sequential File 



2. .'^aquential FJ.le 
Operations 

Note). /P} » procedure 
(F) =■ function 



KEY POINT 



la. Definition - A group of 
related information whose 
access is somewhat limited 
by having to read, or write 
information in a sequential 
(from first to last) manner. 
The file is viewed as a 
sequence of values that are 
transferred in the order of 
their appearance, as produced 
by the program or by the 
environment. 

2a, (P) Create - Gives a name to 
operating system storage 
device from a previously 
declared file object 
(My files File type). 
Es?tiblishes a^new external 
file with the given name and 
form, and associates th5.s 
external file with the given 
internal name. Assigns the 
file object a file mode. 
Default mode is Out File. 
(P)Read - Reads information 
from a previously opened 
file in sequential order. 
Reads an element from a given 
file, and returns the value of 
the element in the item 
parameter. 
2c. (P) Write -writes information 
to a previously created file, 
in sequential order. Writes 
the value of item to the given 
file. 



2b. 
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B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



2. Sequential Files 
Operations 
(continued) 



3. File Functions 



4 . Instantiation 



5. Conventional Naming 
Techniques 



2d. (P) Close -Closes a previously 
opened file. Severs the 
association between the given 
file and its external file. 
The file is left closed. 

2e. Reset - Resets file pointer of 
a sequential file to the first 
element in the file. 

2f . (P)Open - Associates the 
given file with an existing 
external file, and sets the 
mode of the file. The given 
file is left open. 

2g. (P) Delete - Deletes the 

external file associated with 
the given internal name. The 
given file is closed, and the 
external file ceases to exist. 

3a. Mode - returns current mode 

of the given file. 
3b. Name - Returns a string which 

identifies the external file. 
3c. IS_OPEN - Returns True if the 

fixe is open, otherwise 

returns false. 
3d. End of file - Operates on a 

file 61 mode In_ File. 

Returns True if no more 

elements can be read from 

the given file; otherwise, 

it returns False. 
3e. Form - Identifies the file's 

Sroperties (i.e. "save for 90 
ays " ) . 

4. Because Sequential_IO is 

a generic package, it must 
be instantiated for a given 
data type, using parameter 
Element Type. (i.e. package 
Int 10 Is new Sequential_IO 
(Integer) t 

5. Use identifiers which are 
imperative verbs or nouns. 
Imperative verbs name actions, 
nouns name values or 
conditions. This naming 
convention is used in 
Sequent ial_IO, where nouns are 
function names, and imperative 
verbs are procedure names. 
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LAB ZII.H 



lABORAiPORY EXPERIMEMT 



1/ mjOCKt III - "Advanced Ada Topics 



It 



Hi UNIT: H 



III. mB NISfBERs 29 



: ; IV > lAB : TXTU&t " Secfttent ial Files " 





V. STUDENT OBJECTIVES: At the completion o£ this 
experiment, the student should be able tos 

1* Create a sequential file. 

2. Instantiate the generic package Sequential_IO . 

3. Write information to the created sequential file. 

4. Read previously stored information from the 
sequential file. 

5. Close the sequential file. 
VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. AETECH "IntegrAda" with "On-Line Training and 
Reference Module. 

3. IntegrAda Environment or Alsys "AdaUser" 
Libraries . 

3. Student Data Disk. 

VII. PROCEDURE 

1. Create a sequential file to handle the input and 
output of data of the following types 



type PersonDataType is record 
Name s String ( 1 . .10) ; 
Age J Integer; 

Favor ite_Co lor: COLORS. A COLOR; 
end record; "~ 
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The sequential file should provide input and 
output for the following datas 



Name 



Age 



Favorite Color 



1. Susie 

2. Fred 



23 
12 
10 
24 
18 
16 
18 



WHITE 

RED 

BLUE 

»A6ENTA 

GR££M 

YELLOW 

BLUE 



3 . Barney 

4. Debbie 



5. Sam 

6. Andy 

7. Amy 



2. 

3. 
4. 

5. 

6» 



Create a procedure to write the above data into a 
sequential file, from the keyboard. Save this 
program as LAB29A.ADA. 

Create a procedure which will read the data from 
the sequential file, and display the data to the 



LAB29B.ADA. 

Compile, debug, bind, and execute the programs. 

Print out a copy of each program, and a copy of 
your executable output to turn in to your 
Instructor. 

Write a procedure to display only the fouxrth name 
from the list above, and that name's age and 
favorite color. Save this program as LAB29C.ADA. 
Print out a copy of your program, and executable 
code to turn in to your Instructor. 

Power down computer, and clean up area. 




o 
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— * Sequential Files * — ; 

— Author's Name s TBACHBR 60IDB ; 

— Assignment Number t ZiAB # III.H ; 

Program Executive 

— Below is a solution for Lab # III.H. This solution may 
be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 



with TEXT_IO, SEQUENTIAL_IO, Colors; 
use TEXT_IO, Colors; 

procedure Seq_Write is 

type Person^Data is 
record 

Name s STRING( 1 . . 10 ) ; 

Age : INTEGER; 

Favor ite__Color s Colors .A_Color; 
end record; 

package Integer 10 is new INTEGER_IO{ INTEGER ); 

package Color 10 is new ENDMERATION_IO( Colors .A__Color) ; 
use Color 10; 

package PersonIO is new SEQUENTIAL_I0 ( Person_Data ); 
use PersonIO; 

Temp Name ; STRING ( 1 . . 10 ) ; 
I s NATURAL; 

Person_Pile * PersonIO . FILE^TYPE ; 
Person s Person__Data; 
begin 

create ( file Person_File, name => "People.DAT" ); 
— uses default (and required) mode value of 
OUT_FILE 

put( "Enter Name ( type END to quit ): ===> " ); 
I i- 0; 

while ( not End_of_Line ) loop 
I != I + 1; 

get( Terap_Name( I ) ); 
end loop; 
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Temp Name ( I + 1 10 ) :« ( I + i . . 10 => ' ' )s 

NEW Sine I ' 

while ( Temp^Name "END " ) loop 

Person. Name «« Temp_Naine; 

put( "Enter Person's Age: « \ . 

Integer 10. get ( Person. Age ): 

NEWSLINE? 

putX "Enter Person's Favorite Color; ==> " ); 
Colorl0.gGt( Person. Favorite_Color ); 

NEW LINE; NE^ LINE; 
SKIF.LINE; 

write ( file «> Person_Pile, item => Person ); 

put( "Enter Name ( type END to quit ): ===> " ); 
I ja 0; / /' 

while ( not End of Line ) loop 

I 5= I + 1; - ~ 

get( Temp_Name( I ) ); 
end loop; 

Temp Name ( I + 1 . . 10 ) ( I + 1 . . 10 => ' ' ); 
NEW SINE; ^ " 

end loop; 

close ( file »> Person_File ); 
end SecjJWrite; 



with TEXT 10, SEQUENTIAL 10, Colors; 
use TEXT_T0, Colors; 

procedure Seq[_Read is 

type Person Data is 
recor9 

Name : STRING( 1 10 ); 

Age 2 INTEGER; 

Favorite Color s Colors. A Color: 
end recordj °~ 

package IntegerlO is new INTEGER_IO( INTEGER ); 

package ColorlO is new ENUMERATION I0( Colors. A Colorl 
use ColorlO; — * 

package PersonIO is new SEQUENTIAL 10 ( Person Data \% 
use PersonIO; ~ ' 
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Person_File s PersonlO.PILE TYPE; 
Person t Person Data; " 
I : INTBGERj 

begin 

put_linej NAME AGE FAVORITE COLOR")? 

open( file => Person File, mode «> in file, name => 
"People.DAT" ); ~ ~ 

I 8« 0; 

while ( not End Of File( Person File ) ) loop 

read( file -> Person File, item => Person ); 
IntegerIO.put{ l, WiHth => 1 )s 

put( Person. Name ); 

Integer 10. put ( Person. Age, Width => 9 ); 
put (•* **)? 
ColorIO.put( Person. Favorite Color ); 
NEWSLINE; " ' 

end loop; 

close { file => Person_File ); 
end Seg^Read; 



with TEXT 10, SEQUENTIAL 10, Colors: 
use TEXT To, Colors; 
procedure Seg_Rd__4 is 

type Person Data is 
recorH 

Name : STRING( 1 .. 10 ); 

Age s INTEGER; 

Favorite_Color i Colors. A Color; 
end record; ~ 

package Integer 10 is new INTEGER_I0( INTEGER ); 

package Color 10 is new ENUMERATION 10 ( Colors. A Color 1 
use Color 10; ~ ' 

package PersonIO is new SEQUENTIAL 10 ( Person Data ); 
use PersonIO; ~ ~ ' 

Person__File s PersonIO. FILE TYPE; 
Person j Person Data; 
I s POSITIVE; " 

begin 
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open( file «> Person File, mode => in file, name => 
"People.DAT" ); ~ ~ 

for I in 1 4 loop 

read( file «> Person_File, item => Person ); 
end loop; 
N£W_LINE; 

put( "Fourth Person's Name: ===:Ks=»s=cas3ss=sa=> « j. 

put( Per son. Name }; 

NEWSLINE; 

put( "Fourth Person's Age: m=»«=s==i==s=:=»> «• )• 
IntegerIO.put( Person. Age, Width 1 ); 
NEWJCiINE; 

putT *• Fourth Person's Favorite Color: -=> " ); 
ColorIO.put( Person. Favorite Color ); 
NEW_LINE; " 

close ( file Person_File ); 

end Seq_Rd_4j 
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xmomhTios i.esson pum 



ILP III. I 



IV BLp^ - ♦'Advanced Ada Topics" 

3:1 1 > LESSON TITLE ? "Direct Access Files * 



IV. LESSON OBJECTIVES: At the completion of this lesson, 
the student should be able tos 

1. Define direct access file. 

2. Create a direct access file. 

3. Open, close, read, and write direct access files 
and their associated information. 

4. Identify the file functions Size, Index and 
Set_Index which allow a user to directly access a 
particular file item. 



V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block VI 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module". 

Read & take notes on the following sections: 

Block VI, Lesson 2, Topics 1-7, 9, 10. 

a . Packages . 

b. Nontextual data. 

c. File objects. 

d. File modes. 

e. Creating and opening files. 

f. Closing, resetting, and deleting files. 

g. Instantiation. 

h. Direct_IO reading and writing. 

i. Useful file functions. 



o 
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VI. SPECIAL RESOURCBSs 

AETECK "Ada Training Environment" and " JntegrAcfa " 
with "On-Zine Traimng and Reference Module" » 

Skansholsi, Ada From The Beainnino. Addison-Wesley, 
1988, pp. 513-518 . 



VII. PRESBN!I!!A!!riON 

A. Introduction 

1. Explain that accessing record 999,999 in a 
file containing a million records would take 
an enormous amount of time; then introduce 
direct access files, which allow a user to go 
directly to the required record. 

B. Instructional Topics and Key Points 



TOPIC 



KEY POINT 



1. Direct Access Files 



2. Direct File Operations 



3. File Functions 



la. Definition - A file containing 
a list of index numbers which 
allows users to directly 
access the record within the 
file by use of its index 
number. For direct access, 
the file is viewed as a set of 
elements occupying consecutive 
positions in linear orders a 
value can be transferred to 
or from an element of the file 
at any selected position. 

2a. Open and close same as 
sequential files. An open 
file has a current mode, which 
is a value of one of the 
mode types. 

2b. Read and i^rite use additional 
parameter "from" which is 
equivalent to index number. 

3a. Mode, Name, From, Is_Open, 

End_Of_File same as sequential 
files . 

3b. Size - Returns number of items 
in file (number of index 
#'s). Operates on a file of 
any mode. 

(P) Index - Operates on a file 
of any mode, returns the 
current index of a given file. 
(P)Set Index - Operates on a 
rile or any mode. Sets the 
current index of the given 
file to the given value (which 
may exceed the current size of 
the file). 



3e. 



3d. 
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B. Instructional Topics and Key Points 



TOPIC 


KEY POINT 


4* Instantiation 


4a . Direct 10 is a generic 

packages therefore it must be 
instantiated with a given 
type, name information, and 
given a new name. The 
resulting package contains the 
declaration of a file type 
(caxxeci File xype) lor sets oi 
elements (ofthe given type) 
as well as the operations 
applicable to these files 
( open , reset , etc . ) . 
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LABORATORY EXPERIMENT 



LAB III. I 



I, BLOCKS lir - **A<lvanced Ada Topics" 
III.vLMl'.'iraMBERs SO-'..::,-; 




ly . IM; XITLBs "Direct Access Files*' 



V. STUDENT OBJECTIVES: At the completion of this 
experiment, the student should be £ible tos 

1. Create Ada procedures to write and read direct 
access files. 

VI. REQUIRED MATERIALS: 

1. Note taking materials. 

2. AETECH "IntegrAda" with "On-Line Training and 
Reference Module", 

3. Student Data Disk. 
VII. PROCEDURE 

1. Using the data provided in Lab 29, create a 
procedure which stores the given data in a direct 
access file. Save this program as LAB30A.ADA. 

2. Create a procedure which will read the fourth name 
from the given file, along with the name's age and 
favorite color. Save this program as LAB30B.ADA. 

3. Compile, debug, bind, and execute the programs. 

4. Print out a copy of each program, and a copy of 
your executable output to turn in to your 
Instructor. 

5. Power down computer, and clean up area. 
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— * Direct Access Files * — ; 



Author's Name s TEACHER 6DIDE ; 

Assignment Number s LRB # III. I ; 



Program Executive — 

— Below is a solution for Lab # III. I. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 

with TEXT 10, DIRECT 10, Colors; 
use TEXT__TO, Colors?" 

procedure DirectJNrite is 

type Person Data is 
record 

Name s STRIN6( 1 .. 10 ); 

Age s INTEGER; 

Favor ite_Color j Colors. A Color; 
end record; " 

package Integer 10 is new INTE6ER_I0( INTEGER ); 

package ColorlO is new ENUMERATION 10 ( Colors. A Color); 
use ColorlO; ~ 

package FersonIO is new DIRECT 10 ( Person Data ) ; 
use FersonIO; " ~ 

Temp Name s STRING ( 1 . . 10 ) ; 
I s HATURAL; 

Person_Pile s PersonIO.PILE_TYPE; 
Person s Person_Data; 
begin 

Greater file «> Person File, mode => INOUT FILE, name => 
"Persons, DAT" ); ~ " 

put( "Enter Name ( type END to quit )* " ); 

I J« 0; ^ ^ir ^ f }t 

while ( not End__of_Line ) loop 
I j= I + 1; 

get( Temp_Name( I ) ); 
end loop; 

Temp Namef I + 1 .. 10 ) j= ( I + i . . lo «> ' ' w 
NEW EINE; ^' 
while ( Temp_Name /= "END " ) loop 
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Person. Nasie Temp Name; 

put( "Enter Person^ s Ages =========«===> «• ); 

Integer 10. get ( Person. Age ); 
NEWSLINE; 

putj "Enter Person's Favorite Colors " ); 

— might want to list available colors. 
ColorlO.getr Person. Favorite Color ); 
NEW LINE? NEW LINE; 
SKlF_LlNEj 

write ( file => Person^File, item => Person ); 

pnt( "Enter Name ( type END to quit )8 " )t 

I 8= Oj * -r*- -a / ft 

while ( not End of Line ) loop 

I 8= I + 1; ** 

get( Temp Name( I ) ); 
end loop; "* 

Temp Name( I + 1 . , 10 ) :« ( I + 1 . . 10 => ' ' ); 
NEW EINE; ' ^ 

end loop; 

close ( file => Person_File ); 
end Direct__Write; 



with TEXT 10, DIRECT 10, Colors; 
use TEXT^TO, Colors;"" 

procedure Dir_Rd_4 is 

type Person Data is 
recor? 

Name s STRING( 1 10 ); 

Age : INTEGER; 
Pavorite_Color s Colors .A Color; 
end record; 

package IntegerlO is new INTEGER__IO( INTEGER ); 

package ColorlO is new ENUMERATION 10 ( Colors. A Color); 
use ColorlO; ~ — ' 

package PersonIO is new DIRECT 10 ( Person Data ); 
use PersonIO; ~ ' 

Person_Pile 5 PersonIO. FILE TYPE; 
Person t Person__Data; 

begin 

open( file => Person File, mode => in file, name => 
"Persons.DAT" J; 
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read{ file => Person_Pile, item => Person, from «> 4 ); 

close( file => Person_File ); 

NEW_LINE; 

put( •'Fourth Person's Name: ======!=s»=5===> ). 

put( Person. Name ); 
NEWSLINE; 

put( "Fourth Person's Ages »==!=====ss=5=ss=a> " j. 
Integerl0.put( Person. Age, Width => i ) s 
MEW_LINE; 

put( "Fourth Person's Favorite Color: =-> " )j 
ColorIO.put( Person. Favorite Color ); 
NEWSLINE; 

end Dir_Rd_4; 
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IMFORMATION LESSON PLAN 



ILP III. J 



I . BLOCKS III - "Advanced Ada Topics " 
II. UNITS J 
III. iiBSSON TITLE; ''Introduction to Tasks" 



IV. XiESSON OBJECTIVES: At the completion of this lesson, 
the student should be able to: 

1. Define task types and objects. 

2 . Identify the two parts of a task prograxmning 
unit. 

3. Declare task types and objects, 

4. Understand task compilation. 

5. Understand how a task is started. 

6 . Understand how a task ends . 
V. LEARNING ACTIVITIES s 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture. 

3. CAI Assignment - Elock IV 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module", 

Read St take notes on the following sections: 

Block IV, Lesson 3, Topics 1-7 

a. Tasking in embedded computers. 

b. Structure of a task. 

c. Task types. 

d. Encapsulating tasks. 

e. Separate compilation. 

f. Starting tasks. 

g. Ending a task. 

VI. SPECIAL RESOURCES: 

AETECH "Ada Training Environment" and "JntegrAda" 
with "On-Line Training and Reference Module", 
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VIZ. PRBSEMTAiTION 

A. Introduction 

1. Describe the cockpit of an airplane with many 
computers in it, all working at the same time 
to keep the airplane functioning. Describe 
the need for these computers to conununicate 
with one another to ensure that the plane is 
operating correctly j then introduce tasks. 



B, Instructional Topics and Key Points 



1 TOPIC 


KEY POINT I 


1 . Task 


la. Tasks are program units whose 
executions proceed in 
parallel; may use different 
processors, and would 
synchronize their execution 
in order to process data. 

lb. The properties of a task are 
defined in its specification 
and body. Specifications are 
the interface, and bodies are 
the executable statements. 

Ic. Specifications that begin 
wxth the reserved word task 
type declare a type of task. 
Objects may then be declared 
of that type. Specifications 
which begin with only the 
reserved word task declare a 
single task object of an 
anonymous type. 

Id. Tasks may not be compiled 
alone; they must be included 
in a declarative part of a 
structure (i.e. subprogram , 
package body, block, etc.). 

le. Task specifications and 
bodies are Ada compilation 
units, and as such, may be 
compiled separately from one 
another . 
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B. Instructional Topics and Key Points 



TOPIC 


KEY POINT 


2. Running Tasks 


2a. If multiple task objects are 
declared in the declarative 
region of a program unit, 
activation occurs after 
passing the reserved word 
begin of the uAit. If they 
are in a package, activation 
occurs after the declarative 
part of the package body is 
elaborated. 

2b. Each task depends on at least 
one "master A "master" can 
be a task, block, subprogram, 
or package. Masters complete 
when thexr end statement is 
reached; unless they have 
dependent tasks, then they 
complete only when no 
dependents are left active. 

2c. Task types are considered 

limited private types; hence, 
neither comparison (=,/=) or 
assignment (8=) are available 
for objects of task type. 

2d. Tasks are considered frames; 
hence, they can have 
exception handlers. 
Exceptions that occur during 
task activation complete the 
task and then raise 
Tasking Error in the 
declarative region they are 
being activated in. 
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lABORftSroRY EXPERIMENT 



LAB III. J 



!• BLOCK: III - ^Advanced Ada^^^^^^T^ 
III. XAB NUMBER: 31 



V. STUDENT OBJECTIVES s At the completion of this 
experiment, the student should be able tos 

1. Write a procedure with an internal task which runs 
concurrently with the procedure until a <CTRL C> 
is pressed. 

VI. REQUIRED HATERIALS: 

1. Note taking materials. 

2. AETECH "IntegrAda" with "On-line Training and 
Reference Module", 

3. Student Data Disk. 
VII. PROCEDURE 

1. Write a procedure which outputs to the screen 
"This is the procedure". Make this procedure an 
infinite loop. Include in the procedure a task 
which outputs to the screen "This is the task" , 
Make the task an infinite loop. Program execution 
is terminated when <CTRL C> is pressed. Save your 
program as LAB3 I.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program, and your 
executable code to turn in to your Instructor. 

4. Power down computer, and clean up area. 
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— * Introduction to Tasks * — ; 

m,^** -kit It ititiUfkinHtlt ******* ****** Hit* • 

— Author's Name : TEACHER 60IDE ; 
— - Assignment Number : LAB # III. J ; 

— — Program Executive — — — 

— Below is a solution for Lab # III. J. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 



with TEXT_IO? use TEXT_IOj 

procedure Task_Demo is 

task Print__Msg; 

task body Print__Msg is 
begin 
loop 

put_line{ "This is the task." ); 
end loop; 
end Print^Msgj 

begin 
loop 

put_line( "This is the procedure." ); 
end loop; 
end Task_Demo; 
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INFORMATION LESSON PLftM 



ILP III.K 



;;;.|;xIvrBL^^ 

III .LESSON TITLE; "Tasks and Task Communication " 



IV. LESSON OBJECTIVES: At the Completion of this lesson, 
the student should be able to: 

1. Describe how tasks communicate, 

2. Define rendezvous. 

3. Describe how a block of action within a task can 
be performed through an accept . . do structure . 

4. Discuss the use of the select statement. 

5. List the two ways a task can end. 

6. Define the following task attributes: 
'Callable 'Terminated 'Storage__Si2e 

V. LEARNING ACTIVITIES: 

1. Take notes on lecture presented by Instructor. 

2. Participate in class discussion of presented 
lecture . 

3. CAI Assignment - Block IV 

AETECH "Ada Training Environment" or "IntegrAda" 
with "On-Line Training and Reference Module", 

Read & take notes on the following sections: 

Block IV, Lesson 3, Topics 8-15. 

a. Communication in tasks. 

b . Rendezvous . 

c. Accept and do. 

d. The select statement. 

e. Receive statement. 

f. Termination. 

g. Abort versus terminate. 
. Task units. 
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VI. SFECIAXi RESOURCES s 



AETECH "Ada Training Environment" and "integrAda" 
with "On-Line Training and Reference Module". 

VIZ. PRESBMTATION 

A. Introduction 

1. Discuss the importance of tasks being able to 
communicate with one another (cockpit 
example), rather than just merely continuing 
to execute on their own. 

B. Instructional Topics and Key Points 



[ 



TOPIC 



KEY POINT 



1. Task Communication 



2 . Rendezvous 



la. Tasks can have entries 

(specified in their specifi- 
cations). An entry of a task 
can be called (by name) by 
other imits. The called 
task executes an accept 
statement (in its body) for 
the entry, and "accepts" the 
call. Synchronization is the 
rendezvous between an entry 
call and an accept. Since 
entries can have parameters 
(i.e. data to share), 
synchronization provides 
the basic means for 
communication between tasks. 

lb. Entry Calls- execution 
begins with evaluation of 
name, parameters; then if an 
accept stat^ent to the call 
has been reached, the call is 
received, if the accept 
statement has not been 
reached, the call is 
suspended, and multiple 
waiting calls are queued. 

2a. Definition - When two tasks 
meet together through an 
entry and accept. Once 
rendezvous is complete, tasks 
resume independent operation. 
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B. Instructional Topics and Key points 



TOPIC 



KEY POINT 



3 . Accept . . Do Structure 



4. Select Statements 



3a. Execution of a delay 
statement evaluates the 
simple expression, and 
suspends execution for 
at least the duration 
specified by the result of 
the expression. The 
expression roust be of 
predefined type Duration 
with range 0 . . 86400 
seconds (one day) . 

3b. Predefined package Calendar 
provides time resources 
7 i.e. function Clock, type 
Time, etc.). 

4a. Used to control task. 
Three forms: 

1. Selective waits allows 
selecting from one or 
more alternatives. Hust 
have at least one accept 
alternative. Can have 
only one of the following: 
terminate, else, delay. 
An alternative is said to 
be open if it has no 
"when" or if the condition 
following the "when" is 
true, otherwise it is 
closed. If an alternative 
is closed and there is no 
"else" part, tasks can 
wait until an alternative 
is selected. An open delay 
is selected if no other 
open can be selected 
before the specified time. 
An open terminate can only 
be selected if all entries 
are ended. 

2. Conditional Entry Calls 
Issues an entry call, if 
a rendezvous is not 
immediately available, 
cancels the entry call 

( does else part ) . 

3. Timed Entry Calls -Issues 
an entry call, if a 
rendezvous is not started 
within the given delay, 
the call is cancelled. 
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B. Instructional Topics and Key Points 



TOPIC 


KEY POINT 


5. Task Attributes 
(where T is task 
object, and E is 
entry of task T) 


5a. T 'Cailtble - Returns true if 
task is not terminated. 
Returns False if T is 
completed, terminated, or 
abnormal . 

T 'Terminated - Returns True 
if task has been called and 
has completed; returns False 
otherwise. 

T 'Storage^Size returns size 
of memory al located for task. 

E 'Count - returns number o£ 
entry calls queued on entry 
E . 
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LABORATORY EXPERIMENT 



iiAB III.K 



X. BLOCKS III - ^'Advanced Ada Topics'" 
II, UNIT: K 
III. LAB MOHBERs 32 



IV. LAB TITLE: "Task Communication" 

V. STUDENT OBJECTIVES : At the completion of this 
experiment, the student should be able tos 

1. Write a procedure in which two tasks communicate 
with a main procedure. 

VX. REQUIRED MATERIALS s 

1. Note taking materials. 

2. AETECH '•IntegrAda" with "On-Line Training and 
Reference Module". 

3. Student Data Disk. 
VII. PROCEDURE 

1. Wrlto a procedure which declares two tasks. The 
rocedure shall prompt the user to input either a 

or a 2. If 1 is input, taskl is communicated 
with and outputs to the screen "Task 1 
communication complete". If the user enters 2, 
then task2 is communicated with, and outputs to 
the screen "Task 2 communication complete". Any- 
other input other than 1 or 2 terminates both 
tasks, and the procedure. Utilize a case 
structure. Save your program as LAfi32.ADA. 

2. Compile, debug, bind, and execute the program. 

3. Print out a copy of your program and executable 
code to turn in to your Instructor. 

4. Power down computer, and clean up area. 
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— * Task Coismunicatlon * — ; 

^^1s ******* *4e-k ******* ****** it Itlfk^^m 

— Author's Name : TBACHBR GUIDE ; 

— Assignment Number i lab # III.K ; 

— — Program Executive 

— Below is a solution for Lab # III.K. This solution may 

— be used by the instructor as a guide for helping 

— students complete the laboratory assignment. 



with TEXT_I0; use TEXT__IO; 

procedure Task__Demo_2 is 

Response : CHARACTER? 
Done t BOOLEAN; 

task One is 

entry Print; 

entry Quit; 
end One; 

task Two is 

entry Write; 

entry Leave; 
end Two; 

task body One is 

OKToQuit I BOOLEAN; 
begin 

OKToQuit ;= FALSE; 
while ( NOT OKToQuit ) loop 
select 

accept Print do 

put line( "Task 1 communication 
end PrXnt; 

or 

accept Quit do 

OKToQuit s= TRUE; 
end Quit; 
end select; 
end loop; 
end One; 

task body Two is 

OKToLeave s BOOLEAN; 
begin 

OKToLeave s= FALSE; 
while ( NOT OKToLeave ) loop 
select 
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accept Write do 

put_line( "Task 2 communication coaaplete. " ) ; 
end Write; 

or 

accept Leave do 

OKToLeave TRUE? 
end Lecive; 
end select; 
end loop; 
end Two; 

begin 

Done s~ FALSE; 

while ( NOT Done ) loop 

put__line( ''Enter a 1 to communicate with Task One. • . ") ; 
put__line( "a 2 to communicate with Task Two..."); 
put_line( "or anything else to terminate. . . " ) ; 
NEWSLINE; 

putf" Please enter your choice now ===> " ) ; 
qet ( Response ) ; 
NEW_LINE; NEWSLINE; 

case Response is 

when '1' => One. Print; 
when '2' «> Two. Write; 
when others => 
One. Quit; 
Two. Leave; 
Done 8= TRUE; 
end case; 

NEW_LINE; NEWSLINE; 
end loop; 
end Task_Demo_2; 
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